软件 的 功能 再 强大 也 无 法 完全 满足 ， 而 且 一 些 重复 性 、 模 式 化 的 工 


Excel 用 于 数据 处 理 和 分 析 时 功能 丰富 、 强 大 ， 操 作 简单 、 直 观 ， 大 大 减轻 了 办 公 人 员 的 工作 负担 。 但 各 行 各 业 的 办 公 需 求 干 差 万 别 |， 
案 是 为 微软 公司 还 为 Office 办 公 软 件 用 户 提供 了 一 个 利器 一 VBA。 
实现 程序 功能 的 个 性 化 、 重 复 


到 


语言 。 借 助 VBA 对 Excel 进 行 二 次 开发 ， 能 够 


作 ， 即 便 有 软件 的 辅助 ， 完 成 起 来 仍然 相当 烦琐 。 广 大 办 公 人 员 是 不 是 就 无 法 摆脱 这 种 日 复 一 日 的 枯燥 了 呢 ” 答 案 是 否定 的 。 
VBA 全 称 为 Visual Basic for Applications， 是 微软 公司 为 了 让 Office 等 应 用 程序 能 够 执行 通用 的 自动 化 任务 而 开发 的 一 种 编程 


操作 的 自动 化 、 任 务 处 理 的 批量 化 ， 从 而 进一步 解放 生产 力 。 
许多 从 来 没有 接触 过 VBA 的 读者 可 能 一 听 到 “程序 开发 ”和 “代码 编写 ”就 开始 在 心里 打 起 退 堂 鼓 ， 其 实 完全 不 用 担心 ， 本 书 是 一 本 专 为 普通 办 公 人 员 打 造 的 实战 型 Excel VBA 工 具 书 ， 旨 在 帮助 读者 


快速 、 准 确 地 完成 数据 量 大 、 重 复 度 高 的 工作 ， 对 Excel 的 理解 和 应 用 水 平 能 够 更 上 一 层 楼 。 


e 内 容 结构 


本 书 共 14 章 ， 以 文秘 、 行 政 、 人 事 、 营 销 、 财 务 等 职业 领域 的 办 公 需 求 为 主线 划分 内 容 结构 ， 采 用 “案例 导向 ”的 编写 思路 ,讲解 了 Excel VBA 的 具体 应 用 ， 涉 及 人 力 资源 管理 (包括 员工 信息 管理 、 
工资 管理 、 值 班 管理 、 考 勤 管理 、 出 差 管理 等 ) 、 客 户 信息 管理 、 商 品 管理 (包括 入 库 管 理 、 出 货 管 理 、 销 售 管理 、 销 售 分 析 等 ) 、 投 诉 信息 管理 、 固 定 资产 管理 等 。 


整 性 和 系统 性 ， 只 精 选 对 理解 程序 代码 必 不 可 少 的 核心 要 点 进行 浅显 讲解 ， 侧 重 于 让 没有 编程 基础 的 读者 也 能 快速 上 手 解决 实际 问题 。 
“知识 链接 ” “高 手 点 拨 ” 等 小 栏目 ， 有 


e 编 写 特 色 
太 理 论 知识 精练 : 本 书 不 追求 面向 对 象 等 程序 设计 理论 知识 的 完 
太 案 例 解 读 全 面 : 书 中 的 程序 代码 都 附 有 较 详 细 的 注解 ， 能 有 效 帮 助 读者 快速 理解 程序 所 实现 的 功能 及 编写 代码 的 思路 ， 并 通过 穿插 “重点 语法 与 代码 剖析 ” 


针对 性 地 剖析 重点 和 难点 ， 介 绍 应 用 诀窍 和 扩展 知识 


tao 


大 案例 简单 实用 : 为 帮助 新 手 理解 和 掌握 理论 知识 ， 本 书 每 个 案例 的 程序 代码 所 实现 的 功能 并 不 复杂 ， 但 在 设计 案例 时 并 没有 忽略 代码 的 实用 性 。 有 一 定编 程 基 础 的 读者 可 对 代码 稍 加 修改 ， 用 于 解决 
学 习 视频 ， 学 习 方 式 更 加 方便 、 灵 


实际 问题 。 
太 学 习 方 式 先 进 : 书 中 所 有 案例 均 支持 “ 扫 码 看 视频 ”的 学 习 方 式 。 使 用 手机 微 信 或 其 他 能 识别 二 维 码 的 App 扫 描 相应 内 容 旁 边 的 二 维 码 ， 即 可 直接 在 线 观看 高 ; 


活 。 
e 读 者 对 象 
本 书 适 合 有 一 定 Excel 操 作 基 础 又 想 进一步 提高 工作 效率 的 办 公 人 员 ， 如 从 事 文 秘 、 行 政 、 人 事 、 曹 销 、 财 务 等 职业 的 人 士 阅 读 ， 对 大 中 专 院 校 的 师 生 也 极 具 参 考 价值 。 
本 书 由 成 都 航空 职业 技术 学 院 刘 琼 编著 。 由 于 编者 水 平 有 限 ， 在 编写 本 书 的 过 程 中 难免 有 不 足 之 处 ， 晨 请 广大 读者 指正 批评 ， 除 了 扫描 二 维 码 关注 订阅 号 获取 资讯 以 外 ， 也 可 加 入 QQ 群 227463225 与 
编者 
2018 年 8 月 


我 们 交流 。 


如 何 获 取 云 空间 资料 


二 维 码 / 条 码 ” 界 面 ， 将 手机 对 准 下 右 图 中 的 二 维 码 ， 即 可 扫描 关注 我 们 的 微 信 公 众 号 


步骤 1: 扫描 关注 微 信 公众 号 
”功能 ， 如 下 左 图 所 示 ， 页 面 立即 切换 至 


在 手机 微 信 的 “发 现 ” 页 面 中 点 击 “ 扫 一 扫 


深 六 机 


步骤 2: 获取 资料 下 载 地 址 和 密码 


关注 公众 号 后 ， 回 复 本 书 书 号 的 后 6 位 数字 “607380” ， 公 众 号 就 会 自动 发 送 云 空间 资料 的 下 载 地 址 和 相应 密码 ， 如 下 图 所 示 。 


ISBN 978-7-111-60738-0 


917871111607380| 


配套 与 附 赠 资 料 下 载 地 址 : 
https://pan.baidu.com/s/1nCN_FFLSkADxFZBnoZEJBA 
访问 密码 : hymf 


请 将 以 上 链接 输入 电脑 上 网 浏览 器 中 打开 ， 输 入 时 一 定 
要 注意 区 分 大 小 写 。 如 果 还 有 问题 请 加 入 前 言 中 列 出 的 
QQ 群 交流 和 询问。 


i 图 《Excel VBA 案 例 实战 从 入 门 到 精通 (视频 自学 版 ) 》 


步骤 3: 打开 资料 下 载 页 面 


方法 1: 在 计算 机 的 网 页 浏览 器 地 址 栏 中 输入 获取 的 下 载 地 址 (输入 时 注意 区 分 大 小 写 ) ， 


如 右 图 所 示 ， 按 Enter 键 即 可 打开 资料 下 载 页 面 。 


ER 


(> | DD https://pan.baidyu.com/s/1nNnCN_ FFLSKADXxFZBNnoZEJBA 
:3 应 用 EB Microsoft - Official 。 Office,Office 试 用 , FA Adobe 官 方 网 站 上 


去 2: 在 计算 机 的 网 页 浏览 器 地 址 栏 中 输入 “wx m”， 按 Enter 键 后 打开 微 信 网 页 版 的 登录 界面 。 按 照 登录 界面 的 操作 提示 ， 使 用 手机 微 信 的 “ 扫 一 扫 ” 功 能 扫描 登录 界面 中 的 二 维 码 ， 然 后 在 
手机 微 信 中 点 击 “ 登 录 ” 按 钮 ， 浏 览 器 中 将 自动 登录 微 信 网 页 版 。 在 微 信和 网 页 版 中 单 击 左 上 和 角 的 “阅读 ”按钮 ， 如 右 图 所 示 ， 然 后 在 下 方 的 消息 列表 中 找到 并 单 击 刚才 公众 号 友 送 的 消息 ， 在 右 侧 便 可 看 到 
下 载 地 址 和 相应 密码 。 将 下 载 地 址 复制 、 粘 贴 到 网 页 浏览 器 的 地 址 栏 中 ， 按 Enter 键 即 可 打开 资料 下 载 页 面 。 


在 资料 下 载 页 面 的 “请 输入 提取 密码 ”下 方 的 文本 框 中 输入 步骤 2 中 获取 的 访问 密码 (输入 时 注意 区 分 大 小 写 ) ， 再 单 击 “ 提 取 文 件 ” 按 钮 。 在 新 页 面 中 单 击 打开 资料 文件 夹 ， 在 要 下 载 的 文件 名 后 单 
击 “下 载 ”按钮 ， 即 可 将 云 空间 资料 下 载 到 计算 机 中 。 如 果 页 面 中 提示 选择 “高 速 下 载 ” 还 是 “普通 下 载 ” ， 请 选择 “普通 下 载 ”。 下 载 的 资料 如 为 压缩 包 ， 可 使 用 7-Zip、WinRAR 等 软件 解压 。 


如 果 解 压 后 得 到 的 视频 是 SWF 格式 ， 需 要 使 用 Adobe Flash Player 进 行 播放 。 新 版 本 的 Adobe Flash Player 不 能 单独 使 用 ， 而 是 作为 浏览 器 的 插件 存在 ， 所 以 最 好 选用 |E 浏 览 器 来 播放 SWF 格式 的 视 
频 。 如 下 左 图 所 示 ， 右 击 需 要 播放 的 视频 文件 ， 然 后 依次 单 击 “ 打 开 方 式 >Internet Explorer”， 系 统 会 根据 操作 指令 打开 IE 浏 览 器 ， 如 下 右 图 所 示 ， 稍 等 几 秒 钟 后 就 可 看 到 视频 内 容 。 


如 果 视 频 是 MP4 格 式 ， 可 以 选用 其 他 通用 播放 器 (如 Windows Media Player、 暴 风 影 音 ) 播放 。 


_BaiduYunDownload ， 云 应 资料 上， 视频 ， char2 
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只 


若 由 于 云 服 务 器 提供 商 的 故障 导致 扫 码 看 视频 功能 暂时 无 法 使 用 ， 可 通过 上 面 介 绍 的 方法 下 载 视 频 文件 包 在 计算 机 上 观看 。 在 下 载 和 使 用 云 空 间 资料 的 过 程 中 如 果 遇 到 自己 解决 不 了 的 问题 ， 请 加 入 QQ 


群 227463225， 下 载 群 文件 中 的 详细 说 明 ， 或 寻求 群 管理 员 的 协助 。 


为 例 介绍 宏 的 使 用 方法 。 在 本 书 中 ， 宏 特 指 用 VBA 代 码 记 录 的 一 个 操作 序列 。 它 是 最 简单 的 VBA 程 序 ， 也 是 学 习 Excel VBA 的 基础 。 本 章 将 详细 介绍 录制 宏 、 编 辑 宏 


本 章 主要 以 “高 效 处 理学 员 信息 ” 
和 执行 宏 等 操作 ， 实 现 快速 修改 字体 格式 、 自 动 格式 化 学 员 资 料及 自动 保护 学 员 资 料 表 。 


SS 


安 ， 然 后 通过 人 


Excel 工 作 表 中 常常 存储 着 大 量 的 数据 ， 如 果 需 要 为 工作 表 中 不 同位 置 的 数据 设置 不 同 的 字体 格式 ， 那 么 通过 手工 操作 来 完成 就 有 点 耗费 时 间 了 。 此 时 用 户 可 以 录制 一 个 设置 字体 格式 的 


改 安 的 部 分 代码 来 修改 字体 格式 。 


要 码 看 视频 


各， e@ 原始 文件 : 实例 文件 \ 第 1 章 \ 原 始 文件 \ 快 速 修改 字体 格式 .xlsx 


9 最 终 文 件 : 实例 文件 \ 第 1 章 \ 最 终 文件 \ 快 速 修 改 字体 格式 .xlsm 


1.1.1 录制 “修改 字体 格式 ” 安 


若 要 录制 快速 修改 字体 格式 的 宏 ， 则 需要 先 启动 宏 的 录制 ， 然 后 根据 需要 进行 字体 格式 的 设置 操作 ， 最 后 停止 录制 。 具 体操 作 如 下 。 


步骤 01 ”启动 宏 的 录制 。 打 开 原 始 文 件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 “录制 宏 ” 按 钮 ， 如 下 图 所 示 。 


nn 


| 
加 Excel COM : 


友 || 学 员 基 本 信息 


步骤 02 设置 宏 名 。 弹 出 “录制 宏 ” 对 话 框 ,在 “ 宏 名 ”文本 框 中 输入 “修改 字体 格式 ”， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


高 手 点 拨 : 录制 宏 的 注意 事项 


在 录制 宏 的 过 程 中 ， 所 有 的 Excel 操 作 都 会 被 完整 地 记录 下 来 ， 包 括 错误 的 操作 。 因 此 ， 在 录制 宏 之 前 ， 建 议 先 演练 一 下 需要 录制 的 操作 ， 这 样 有 助 于 保证 一 次 录制 成 功 。 


步骤 03 ”合并 单元 格 区 域 。 返 回 工作 表 ， 选 中 单元 格 区 域 A1: H1， 在 “开始 ”选项 卡 下 单 击 “ 对 齐 方式 ”组 中 的 “合并 后 居中 ”按钮 ， 在 展开 的 列表 中 单 击 “ 合 并 后 居中 ”选项 ， 如 下 图 所 示 。 


一 国 跨越 合并 内 


| 国 ”合并 单元 格 (M) 


Br 这 下 BE \ OO [Dw 
二 年 级 一 计算 机 信息 上 上海 1312451#+##16 由 
一 年 级 一 班 计算 机 信息 管 天 津 ”1356484++#+#*+16 由 


步骤 04 ”设置 标题 字体 。 单 击 “ 字 体 ” 组 中 的 “字体 ”下 三 角 按钮 ， 在 展开 的 列表 中 单 击 “黑体 ”选项 ， 如 下 图 所 示 。 这 样 可 将 选中 文本 的 字体 设置 为 黑体 。 


， O Malgun Gothic Semilight 
1O Microsoft YaHei UI 时 资料 
s 业 籍贯 ”联系 方式 
一 击 0 Microsoft YaHei UILight DQ 
200 SimSun Extb 算 机 信息 管 上 海 。 1312451#+ 
20 0 等 线 十 算 机 信息 和 天 津 ”1356484#* 
20 0 Liaht + 算 机 信息 官 辽宁 . 沈 [1362365 
200 等 线 十 算 机 信息 管 吉林 . 长 i1375482## 
方正 舍 人 + 算 机 信息 管 山西 . 太 月 1385451+*** 
20 j0 万 正 录 人 恒 十 算 机 信息 管 江苏 . 南 11342154#+# 
20 仿宋 + 咎 机 信息 藻 守 本 .长 时 1355754*** 
200 黑体 人 二 算 机 信息 官 安 微 . 合 f1594512*+* 
下 0 各 六 形 三 秆 算 机 信息 管 湖 北 . 武 5154212: 
2 站 机 信息 管 贵州 , 贵 [1354578## 


I EE 


步骤 05 设置 标题 字号 。 单 击 “ 字 体 ” 组 中 的 “字号 ”下 三 角 按钮 ， 在 展开 的 列表 中 单 击 20 选 项 ， 即 可 将 选中 文本 的 字号 设置 为 20 磅 ， 如 下 图 所 示 。 


基本 信息 资料 
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: 上 基本 信 漠 深 和 和 


16 了 级 
20183773 罗 扬 : 二 年 级 二 下 评 守 机 信息 管 下 
20183774 儿 明 < 一 年 级 一 班 计 算 机 信息 管 天 
20183775 陈好 24 一 年 级 一 班 计算 机 信息 官 这 
20183776 罗丹 26 ”一 年 级 一 班 计算 机 信息 管 二 

20183777 慑 胶 男 |. 一 年 级 一 班 计算 机 信息 管 山 
20183778 冯 栖 龙 ar ”丰年 级 一 班 | 计算 机 信息 篇 江 


步骤 06 ”设置 字体 颜色 。 在 “字体 ”组 中 单 击 “字体 颜色 ”下 三 角 按钮 ， 在 展开 的 颜色 库 中 单 击 “ 蓝 色 ”， 如 下 图 所 示 。 
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一 税 级 一 班 - 计 异 性 全息 管 辽宁 . ; 


一 年 级 一 班 计算 机 信息 管 吉林 . 


步骤 07 停止 宏 的 录制 。 此 时 选中 的 文本 即 设置 为 需要 的 格式 了 。 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ”组 中 的 “停止 录制 ”按钮 ， 停 止 宏 的 录制 ， 如 右 图 所 示 。 
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知识 链接 ”停止 宏 录 制 


当 用 户 完 成 需要 的 操作 ， 停 止 宏 录 制 后 ， 之 后 的 操作 过 程 将 不 会 被 记录 。 


1.1.2 ”查看 宏 代 码 


完成 宏 的 录制 后 ， 可 通过 “ 宏 ” 功 能 来 查看 宏 的 代码 。 具 体操 作 如 下 。 


步骤 01 打开 “ 宏 ” 对 话 框 。 继 续 上 一 小 节 的 操作 ， 在 “代码 ”组 中 单 击 “ 宏 ”按钮 ， 如 下 图 所 示 。 


Visual Basic 宏 pd : i COM 
D 各 加 载 项 


fr ] z 学 员 基 本 信息 


步骤 02 ”查看 宏 代码 。 弹 出 “ 宏 ” 对 话 框 ， 单 击 “ 宏 名 ”列表 框 中 的 “修改 字体 格式 ”选项 ， 单 击 “ 编 辑 按钮 ， 如 下 图 所 示 。 


知识 链接 ”查看 宏 代码 


录制 完 宏 之 后 ， 用 户 可 以 进入 VBE 编 程 环 境 中 查看 宏 代码 ， 删 除 多 余 的 操作 代码 ， 修 改 错误 的 操作 代码 。 


步骤 03 ”查看 合并 单元 格 区 域 的 代码 。 进 入 VBE 编 程 环 境 ，“ 模 块 1 (代码 ) ”窗口 中 的 代码 段 即 为 合并 后 居中 的 代码 ， 如 下 图 所 示 。 


Sub 修改 子 体 梢 式 0 


”修改 字体 档 式 宏 
Range (Al:Hl1”).Select 
With Selection 
. Horizontalhblisnment = xlCenter 
. Verticalhlignment = xlCLenter 


. WrapText = False 
.Orientatlion = 0 
.Lddlndent = False 
.lndentLevel] = (0 
. ShrinkToFit = False 
.ReadinsUrder = xlContext 
. NergeCells = False 

End Wth 

selection,. Mergze 


步骤 04 查看 设置 字体 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 ， 如 下 图 所 示 的 代码 段 即 为 设置 字体 为 黑体 的 代码 。 


-区 


【通用 ) ~| [修改 字体 格式 ~ 


th on gt 
.Hame = “黑体 * 
.SlzZe = 11 
.strikethrouzsh = False 
.SUPErscript = False 
, Subscript = False 


.OutlineFont = False 
.ohadow = False 
.Underline = xlUnderlinestylelNone 
. ThemeColor = xlThemeColorLigzhtl 
.TinthindSshade = 0 
. IhemeFont = xllhemeF ontNone 
End With 
WIth Selectlon, Font 
.Hame = “里 体 * 


重点 语法 与 代码 剖析 : 在 VBA 中 定义 一 个 过 程 的 语法 

Sub< 过 程 名 > (< 参数 名 >As< 参 数 类 型 >[，< 参 数 名 >As< 参 数 类 型 >…]) 
< 代码 段 > 

End Sub 

其 中 ，“ 代 码 段 ”是 指 符合 VBA 语 法 的 任何 语句 。 


步骤 05 ”查看 设置 字号 大 小 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 ， 如 下 图 所 示 的 代码 段 即 为 设置 字号 为 20 磅 的 代码 。 


,了 ame = “黑体 ” 

.1LZB = 20 
.otrikethroush = False 
,SUPErscript = False 


. Subscript = False 
.OutlineFont = False 
. Shadow = False 
. Inderline = xlmderlinestylellone 
.ThemeColor = xlTIhemeColorLight!l 
.Tintindshade = (0 
. ThemeFont = xlThemeFontNone 
End With 


步骤 06 查看 设置 字体 颜色 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 ， 如 下 图 所 示 的 代码 段 即 为 设置 字体 颜色 为 蓝 色 的 代码 。 


Er 

. Shadow = False 

. Underline = xlUnderlinestyleNone 
. IhemeLolor = xllhemeLolorLight!]l 
,IntindShade = | 

A = xXlThemeFontNone 


With Seloction. Font 
.Color = -4165632 
.TintAindshade = 0 


1.1.3 ”修改 宏 代 码 


本 小 节 将 在 上 一 小 节录 制 的 宏 代 码 的 基础 上 进行 修改 ， 完 成 一 个 自制 的 宏 代 码 ， 用 于 快速 修改 表格 字段 名 称 和 正文 的 字体 格式 。 具 体操 作 如 下 。 


步骤 01 删除 不 需要 的 代码 。 继 续 上 一 小 节 的 操作 ， 选 中 如 下 图 所 示 的 代码 ， 按 Delete 键 将 其 删除 。 


Sub 修改 字体 格式 站 
公 改 子 体格 式 在 


With Selection 站 
, Horizontalhl i = Xl Lenter 


,VETt CAD A td Gat w 1 -PNt EE 


Whadow = False 国 
.Underline = xlUnderlinesSstyleNone| 
. Iheme Lolor = xllheme LolorLieaht!] 
.linthndsSshade = 0 
. |hemeFont = xllhemet ontNone 
hnd EE 
With Selection. Font 
.Name = “黑体 * 


步骤 02 设置 各 字段 名 称 的 字体 格式 。 输 入 注释 语句 “设置 各 字段 名 称 的 字体 格式 ”， 将 Range 语 句 的 单元 格 区 域 更 改 为 “A2: H2”,， 将 Size 语 句 的 字号 更 改 为 14， 将 Color 语 句 的 字体 颜色 更 改 
为 “RGB (128，0，128) ” (紫色 ) ， 如 下 图 所 示 。 


Sub 修 忆 字体 档 式 避 
” 修改 字体 格式 宏 


" 食 站 各 字 段 名 称 的 字 才 格式 

Rangef wa2:H2”). Select 

With Select1Lon. Font 
,Jame = “黑体 * 
.SlZe = 1l4, 


EE 


WIth Select1Lon, Font 
,Color = RGB (128, 0, 128) 
.Ti1ntindSshade = 0 

End With 

_ End Sub 


高 手 点 拨 : Range.Select 方 法 的 用 法 
Range.Select 方 法 用 于 选择 单元 格 或 单元 格 区 域 ， 其 语法 格式 为 : 表达 式 .Select。 其 中 ，“ 表 达 式 ”是 一 个 代表 Range 对 象 的 变量 。 若 要 使 单个 单元 格 成 为 活动 单元 格 ， 则 应 使 用 Activate 方 法 。 


步骤 03 复制、 粘贴 代码 。 在 第 2 个 End With 语 句 之 后 按 Enter 键 换行 ， 输 入 注释 语句 “设置 正文 的 字体 格式 ”。 选 中 Range ("A2: H2") .Select 语 句 至 第 2 个 End With 语 句 之 间 的 代码 ,利用 Ctrl+C 
和 Ctrl+V 组 合 键 将 这 段 代 码 复 制 、 粘 贴 在 注释 语句 之 后 ， 如 下 左 图 所 示 。 


End With 


" 廊 置 正 区 的 字体 档 式 
Range'l” sa2:H2 ). Select 
WIth select1lon.Font 

.Hame =“ 直 体 ” 

.S17Te = 14 

.Strikethrouzbh = 上 False 


wd 
[Ith Selection.Font | 
,Color = RGeB (128, 0, 128) 


.Ti1ntindSshade = 0 
End With 
End Sub 


步骤 04 ”设置 正文 的 字体 颜色 。 将 Range 语 句 的 单元 格 区 域 更 改 为 “A3: H31”,， 将 Name 语 句 中 的 字体 更 改 为 “华文 仿宋 ”， 将 Size 语 句 中 的 字号 更 改 为 12， 将 Color 语 句 中 的 字体 颜色 更 改 


为 “RGB (0, 0, 0)" 


(黑色 ) ， 如 下 右 图 所 示 。 


步骤 05 保存 修改 后 的 文件 。 单 击 菜单 栏 中 的 “文件 ”菜单 ， 在 展开 的 列表 中 单 击 “ 保 存 快速 修改 字体 格式 .xlsx” 命 令 ， 


End With 


" 价 直 正六 的 字体 格式 

Rangel” wa3:H31 ). Select 

Wth Selection.Font 
.了 same =“ 华 区 仿宋 
,51LZB = 12 


Ehnd Wk 
With Select1ion. Font 
,Color = RGB (0, 0, 
,Tint AndShade = 0 
End With 
End Sub 


. Strikethrouat = False 


如 下 图 所 示 ， 即 可 保存 该 工作 短 。 


并 返回 到 Microsoft Excel(O Alt+Q 


. 围 | Sheet2 (Sheet2) 
… 因 | Sheet3 {Sheet3) 
: | Thi sWorkbook 
-入 模 快 


步骤 06 打开 “另存 为 ”对 话 框 。 弹 出 提示 框 ， 提 示 用 户 无 法 在 未 启用 宏 的 工作 簿 中 保存 VB 项 目 ， 单 击 “ 否 ”按钮 ， 如 下 图 所 示 。 


步骤 07 另存 为 启用 宏 的 文件 。 弹 出 “另存 为 ”对 话 框 ， 在 地 址 栏 中 选择 文件 要 存储 的 路 径 ， 设 置 “ 保 存 类 型 ”为 “Excel 启 用 宏 的 工作 秒 (*.xlsm) ”,， 单 击 “ 保 存 ” 按 钮 ， 即 可 完成 新 文件 的 保存 ， 
如 右 图 所 示 。 


1.1.4 ”运行 宏 


创建 宏 或 修改 宏 代码 后 ， 可 通过 运行 宏 来 查看 宏 的 效果 。 具 体操 作 如 下 。 


步骤 01 执行 安 。 继 续 上 一 小 节 的 操作 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “修改 字 体格 式 ” 选 项 ， 单 击 “ 执 行 ”按钮 ， 如 下 左 图 所 示 。 


步骤 02 ”查看 最 终 效 果 。 程 序 执行 完成 后 ， 工 作 表 中 的 所 有 字体 格式 都 按照 代码 中 的 设置 做 了 相应 的 调整 ， 如 下 右 图 所 示 。 


= 


9 = :录制 去 
Wisual ne 一 


代 倘 


姓名 
20183772| 刘欢 
201837735| 田 插 
20183774| 师 于 
20183775| 阵 好 
20183776| 畦 和 寺 
20183777| 邮 情 


1 
2 
3 
a 
5 
: 

| 了 

医 : 


20183778| 沿 禁 币 
20183779 | 名 明智 


20183780| 孩 此 
20183781 谢 飞 


20183782| 许 平凡 
20183783 半 心 站 
20183784 峙 思 屋 


故 德 用 相对 引用 
起 去 去 全 性 履 而 I 


加 


快 还 巾 改 字体 格式 .xlsm - Excel 


区 数据 市 阅 视图 开 必 I 有 Power Pivot 


局 | 一 图 


| 
COM 加 莽 项 插入 设计 策 志 i 
三 出 [ 避 执行 对 话 杠 


加 茧 项 控件 


厂 | 学 员 基 本 信息 资料 


学 员 基本 信息 资料 


江 | 中 


十 填 各 泗 半 | 泌 泌 酒 半 半 济 匣 填 入 


班级 专业 和 烙 贯 ”联系 万 式 
一 年 施 一 班 计算 机 信息 二 北京。 1328045+= 
一 重 姐 一 班 计算 机 信息 1 上海 1312451** 
一 年 级 一 班 计算 机 信息 4 天津 |1356484*=** 
一 年 组 一 瑚 计算 机 信息 二 过 于 . 沈 11362365*e** 
一 年 奴 一 更 计算 机 信息 4 十 香 . 长 11375482+ers 
一 年 轻 一 班 计算 机 信息 二 山西 . 太 11385451*+*** 
一 年 奴 一 瑚 计算 机 信息 4 江苏. 南 ]1342154+e4* 
一 年 级 一 更 计算 机 信息 4 十 林 -长 11358754**y* 
一 年 级 一 融 计 算 机 信息 4 安徽 . 合 115945124ew 
一 年 缀 一 珊 计 算 机 信息 4 湖北 . 武 j1542124wass 
一 年 缀 一 瑚 计算 机 信息 4 贵州 . 贵 1135457S+eee 
一 年 朗 一 瑚 计算 机 信息 和 吉 困 .长 13 1398564+*” 
一 年 钥 二 斑 教 育 技 术 学 江西 . 南 11365477**** 


宿舍 号 ， 


15 幢 210 
16 尽 101 
16 幢 102 
15 尽 210 
15 尽 211 
16 幢 101 
16 尽 101 
168 尽 102 
15 幢 211 
16 慷 103 
16 尽 103 
15 幢 212 
15 幢 212 


醒 上 时 大 属性 辆 
当 扩 展 筷 
凌 了 LL 


Sheetl 


高 手 点 拨 : 其 他 执行 宏 的 方法 


在 Excel 中 有 多 种 方法 可 执行 已 经 录制 的 宏 或 VBA 程 序 ， 本 小 节 采 用 的 “ 宏 ” 对 话 框 只 是 其 中 的 一 种 。 此 外 ， 还 可 以 通过 工作 表 按 钮 、 工 作 表 中 指定 宏 的 按钮 控件 、 工 作 表 中 指定 宏 的 图 片 、 


按钮 等 多 种 方法 来 执行 宏 或 VBA 程 序 。 


1.2 自动 格式 化 学 员 人 资料 


本 节 将 在 上 一 节 的 基础 上 创建 自动 格式 化 学 


Sheet2 | Sheet3 | 国 


员 资 料 的 宏 ， 主 要 功 


能 是 对 工作 表 中 的 数据 添加 边框 并 调整 单元 格 的 行 高 和 列 宽 。 下 面 详 细 介绍 如 何 使 用 Excel 中 的 录制 安 功能 来 达到 目的 。 


让 


功能 区 中 的 


要 码 看 视频 


[ 重 ，。 原始 文件 :实例 文件 \ 第 1 章 \ 原 始 文件 \ 自 动 格式 化 学 员 资 料 xlsm 
e@ 最 终 文 件 : 实例 文件 \ 第 1 章 \ 最 终 文件 \ 自 动 格式 化 学 员 资 料 .xlsm 


步骤 01 录制 “自动 格式 化 学 员 资 料 ” 宏 。 打 开 原 始 文件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 “录制 宏 ” 按 钮 ， 弹 出 “录制 安 ” 对 话 框 ， 在 “ 宏 名 ”文本 框 中 输入 “自动 格式 化 学 员 资 
料 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


方式 宿舍 号 

| 本 ck 15 央 210 
51*** 16 峡 101 
4 16 旺 102 

外 局 水 来 来 15 赔 210 
B2*oook 15 幢 211 
| 夯 1 ks 16 峡 101 
54+oer 16 幢 101 
i 16 峡 102 
2*oek 15 央 211 
D4rkkki 16 峡 103 
了 Seek 16 尽 103 
4 15 幢 212 
上 7k 15 幢 212 


步骤 02 打开 “设置 单元 格格 式 ” 对 话 框 。 返 回 工作 表 ， 选 中 单元 格 区 域 A2: H2 后 ， 在 “开始 ”选项 卡 下 单 击 “ 对 齐 方 式 ” 组 中 的 对 话 框 启动 器 ， 如 下 图 所 示 。 


Jy 
| 
| | 


和 二. 00 
‘00 3.0 


eR i 
一 间 


二 全- 一 忠和 北京 1328645++++ 15 嫌 210 
一 年 级 一 班 计算 机 信息 4 上 海 1312451**** 16 幢 101 


步骤 03 ”设置 外 边框 样式 。 弹 出 “设置 单元 格格 式 ” 对 话 框 ， 在 “边框 ”选项 卡 下 单 击 “ 线 条 ”选项 组 中 的 “ 粗 线条 ”样式 ， 在 “ 预 置 ”选项 组 中 单 击 “ 外 边框 ”按钮 ， 如 下 图 所 示 。 


内 部 山 


步骤 04 ”设置 内 边框 样式 。 在 “线条 ”选项 组 中 单 击 “ 细 线条 ”样式 ， 在 “ 预 置 ”选项 组 中 单 击 “ 内 部 ”按钮 ， 如 下 图 所 示 。 


无 (IN) ”外 边框 (Q) 内 部 山 


步骤 06 ”自动 调整 行 高 。 若 要 根据 内 容 自动 调整 行 高 ， 则 在 “开始 ”选项 卡 下 单 击 “ 单 元 格 ” 组 中 的 “格式 ”按钮 ， 在 展开 的 列表 中 单 击 “ 自 动 调 整 行 高 ”选项 ， 如 下 图 所 示 。 


1328645*#**r 15 巾 210 可 见 性 


Power Pivot VY 告诉 我 ... 


13286454ooex | ] 5 慷 2 10 可 见 性 


步骤 08 ”停止 录制 宏 并 查看 效果 。 停 止 录制 安 ， 此 时 可 以 看 到 选中 单元 格 的 行 高 、 列 宽 及 边框 和 背景 颜色 都 发 生 了 相应 的 变化 ， 如 下 图 所 示 。 


we Ea 的 录制 去 | 而 |: 三 A 上 9 ss 后 配 遇 寺 寿 性 加 导入 

图 ED 迪 洁 加 这 = ESN 
去 了 加 Excel COM 加 载 ms 设计 机 区 个 入 民 外。 st 
征 宏 安 全 性 贺 项 ”加载 项 da 所， 刷新 数据 

代码 | 件 XML 


| Wisual Basic 


一 年 钥 一 班 计 算 机 信息 4 北京 113286459kees 15 央 210 
一 年 角 一 班 计 算 机 信息 4 上 海 1312451+#ees 16 峡 101 
一 年 级 一 班 计 算 机 信息 天津 1 1356484+ees 16 峡 102 
一 年 航 一 班 计算 机 信息 上 辽宁. 沈 上 1362365*kss 15 幢 210 
一 年 级 一 班 计算 机 信息 4 古林. 长 11375482**es 15 幢 211 
一 年 级 一 班 计 算 机 信息 4 山西 . 太 )1385451**** 16 尽 101 
一 年 瓜 一 班 计算 机 信息 4 江苏 . 南 ]1342154#*ess* 16 幢 101 
一 年 级 一 班 计算 机 信息 和 9 吉林 .长 11358754*oe 16 幢 102 
一 年 级 一 班 计算 机 信息 4 安徽 . 台 115904512+eee 15 峡 211 
一 年 级 一 班 计算 机 信息 4 湖北 . 武 j15421244eees 16 屿 103 
一 年 狼 一 班 计 算 机 信息 4 贵州 . 贵 11354578**** 16 峡 103 
一 年 最 一 班 计 算 机 信息 4 吉林 .长 11398564oee 15 央 212 


20183772 刘表 


20183773 罗 扬 
20183774 师 明 
20183775 阵 好 
20183776 田 丹 
20183777 邮 怖 
20183778 冯 埋 十 
20183779 哲 明 智 
20183780 我 处 
20183781 谢 飞 
20183782 洛 玉 几 
20183783 郑 疙 颜 


直 润 润 半 河 泗 酒 秆 填 洒 酒 寸 司 


步骤 09 ”查看 录制 宏 的 代码 。 按 Alt+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “自动 格式 化 学 员 资料 ”选项 ， 单 击 “ 编 辑 ” 按 钮 ， 如 下 图 所 示 。 


步骤 10 ”查看 设置 左边 框 和 顶部 边框 样式 的 代码 。 进 入 VBE 编 程 环 境 ， 在 “模块 2 (代码 ) ”窗口 中 ， 如 下 图 所 示 的 代码 段 即 为 设置 左边 框 和 顶部 边框 样式 的 代码 。 


mcm [m= 


I me 自动 格式 化 学 员 资料 


Rangel” 上 2:H2 ). Select | 
Selection. Borders (xlDiagonalDown).LineSstyle = x]Nc 
Selection,. Borders (xlDiagonalUp).LineSstyle = xlNone 
With Selection.Borders (xlEdgeLeft) 

.LineSstyle = xlContinuous 

.ColorIndex = xlAutomatic 

.Tintindshade = 0 

,Welight = xlThick 
End With 
With Selection.Borders (xlEdgeTop) 

.LineSstyle = xlContinuous 

Colorlndex = xlAutomatic 

.TintAindshade = 0 

Weight = xlTlhick 
End With 


步骤 11 查看 设置 底部 边框 和 右边 框 样式 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 ， 如 下 图 所 示 的 代码 段 即 为 设置 底部 边框 和 右边 框 样式 的 代码 。 


With Selection. Borders (xlEdgeTop) 
,ImneotylLe = xlContinuous 
ColorIlndex = xliutomatic 

TintindSshade = 0 
eet = XlThick 


With Soloction Dordors rilep tion 
.Linestyle = xlContinuous 
.ColorIndex = xlAiutomatic 
‘TintAndShade = 0 

ht = xlIhick 


With Selection.Borders (xlEdgeRight) 
.Linestyle = xlContinuous 
.ColorIndex = xliutomatic 
. Ti1nt indshade = 省 
Weight = xllhick 


步骤 12 ”查看 其 他 代码 。 在 “模块 2 (代码 ) ”窗口 中 ， 下 图 所 示 的 代码 段 即 为 设置 所 有 单元 格 的 内 边框 样式 、 填 充 颜色 及 自动 调整 行 高 和 列 宽 的 代码 。 


With Selection.Borders'l(xlInsideVertical)| 
Linestyle = xlContinuous 
.Colorlndex = xlhutomat1ic 
.TinthindSshade = 0 
.Weight = xlIhin 

End With 

Selection. BorderslxlInsideHorizontal).LineSstyle = 

With Selection. Interior 
.Pattern = xlS0l11d 
.PatternColorIndex = xlAutomat1ic 
.ThemeCLolor = xlIhemeLolorhiccentp 

yp 


.TintindSshade = 0.599 
. PatternIintindShade 
End With 
selection. Rows. AutoFit 
selection.Columms. AutoF1it 
End Sub 


] 
C 
0 


重点 语法 与 代码 剖析 : Range.CurrentRegion 属 性 的 用 法 

Range.CuttentRegion 属 性 用 于 返回 一 个 Range 对 象 ， 该 对 象 表示 当前 区 域 。 当 前 区 域 是 以 空 行 与 空 列 的 组 合 为 边界 的 区 域 。 该 属性 的 语法 格式 为 : 表达 式 .CurrentRegion。 其 中 ，“ 表 达 式 ”是 一 个 代表 
Range 对 象 的 变量 。 

注意 : 该 属性 对 于 许多 自动 扩展 选择 范围 以 包含 整个 数据 区 域 的 操作 很 有 用 ， 如 AutoFormat 方 法 。 该 属性 不 能 用 于 被 保护 的 工作 表 。 


步骤 13 添加 代码 。 在 “模块 2 (代码 ) ”窗口 中 添加 如 下 左 图 所 示 的 第 3 ~ 7 行 语句 ， 用 于 获取 当前 工作 表 的 行 数 和 列 数 ; 添加 如 下 左 图 所 示 的 第 8 ~ 9 行 语 句 ， 用 于 选中 工作 表 中 第 3 行 到 末 行 的 数据 。 


Dim rowH As Int 

Dim Lol Ls Integ 

rowl = es, 2 )， CurrentResion,. Rows,. Count 

ColN = Rangel aa ). tg oR ons. Count 

吕 取 工作 入 于 第 和 行 开始 到 最 后 一 个 单元 格 区 域 

Range (Cells(3, 1), Cells(rowN, ColN)).Select 
“设置 边框 的 线条 样式 
Selection. Borders lxlDiazonalDown) .LineStyle 
= XlNone 
Selection, Borders (xlDiagonalUp) .LineStyle _ 


= XlNone 


` 公 直 区 域 的 诺 边 框 样式 
With Selection. Borders'(xlEdgeLeft) 
.Linestyle = xlContinuous 
Colorlndex = xliutomat1c 
.Tintindshade = 0 
pe xlThick 


“发 置 区 接 的 顶部 边框 样式 

With Selection. Borders (xlEdgeTonp) 
.LineSstyle = xlContinuous 
.Colorlndex = xlAutomat1ic 
.Tinthindshade = 0 
Welght = xllhick 

End With 


重点 语法 与 代码 剖析 : Range.Rows 和 Range.Columns 属 性 的 用 法 


Range.Rows 属 性 用 于 返回 一 个 Range 对 象 ， 它 代表 指定 区 域 中 的 行 。 


Range.Columns 属 性 用 于 返回 一 个 Range 对 象 ， 它 代表 指定 区 域 中 的 列 。 需 要 注意 的 是 ， 在 不 使 用 对 象 识 别 符 的 情况 下 ， 使 用 Range.Columns 属 性 等 效 于 使 用 ActiveSheet.Columns。 此 属性 应 用 于 多 重 选 定 区 
域 的 Range 对 象 时 ， 将 只 从 该 区 域 的 第 一 个 子 区 域 中 返回 列 。 例 如 ， 如 果 Range 对 象 有 两 个 子 区 域 A1: B2 和 C3: D4， 和 那么 Selection.Columns.Count 的 返回 值 是 2， 而 不 是 4。 若 要 对 一 个 可 能 包含 多 重 选 定 区 域 的 
对 象 使 用 此 属性 ， 请 测试 Areas.Count 以 确定 此 区 域内 是 否 包 含 多 个 子 区 域 。 如 果 和 包含 ， 请 对 此 区 域内 的 每 个 子 区 域 进行 循环 。 


步骤 15 ”添加 底部 边框 和 右边 框 样式 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 添加 如 下 图 所 示 的 语句 ， 用 于 设置 底部 边框 和 右边 框 样式 与 刚才 录制 的 边框 样式 一 致 。 


:LineSstyle = xlContinuous 
ColorIlndex = xlhutomat1c 
,TintindSshade = 0 
.Weisht = xlThick 

End YWith 


" 这 置 区 域 的 右边 框 样式 

With Selection.Borders (xlEdgeRight) 
Linestyle = xlCLontinuous 
.Colorlndex = xlAiutomat1c 
.Intandshade = 0 
,VEIEht = xllhick 

End With 


步骤 16 ”添加 其 他 代码 。 在 “模块 2 (代码 ) ”窗口 中 添加 如 下 图 所 示 的 第 1 ~ 14 行 语句 ， 用 于 设置 所 有 单元 格 的 水 平和 垂直 内 部 边框 样式 与 刚才 录制 的 边框 样式 一 致 ， 继续 添加 如 下 图 所 示 的 第 15~ 17 
行 语 句 ， 用 于 设置 单元 格 行 高 和 列 宽 根 据 内 容 自动 调整 ， 其 中 “Selection” 代 表 工 作 表 第 3 行 至 未 行 的 数据 区 域 。 


TT ER 
With Selection,. Borders (xlInsideVertical) 
.Linestyle = xlContinuous 
te = XlAutomatlc 
.TinthindSshade = 0 
cs xlThin 
End With 
" 翁 直 区 域 中 卫 有 单元 格 的 水 平 边 框 样式 
With Selection. Borders ixX1LInsldeHorlzontal) 
.Linestyle = 和 Nonme 
.Colorlndex = xlhutomatic 
.TintAndSshade = 0 
a xlThin 


End 
“省 动 祖 所 单元 格 的 内 容 调整 行 高 和 列 帘 
Selection,. Kows. AutoF1t 
Selection.Colums. AutoFit 
End sub 


后 


步骤 17 ”执行 安 。 按 Alt+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 自 动 格式 化 学 员 资料 ”选项 ， 单 击 “ 执 行 ” 按 钮 ， 如 下 左 图 所 示 。 


步骤 18 ”查看 执行 代码 后 的 效果 。 程 序 执行 完成 后 ， 可 看 到 工作 表 中 从 第 3 行 数据 开始 自动 添加 了 边框 ， 并 自动 根据 内 容 调整 了 行 高 和 列 宽 ， 如 下 右 图 所 示 。 


一 证 = 
Wisual Basic 安 加 Excel COM 加 载 硕 ”搬入 、 设 计 模 式 源 a 
着 安安 全 性 载 顶 “加 载 顶 * 引 | 执行 对 话 框 由 | 剧 新 数据 
代码 加 载 琐 控件 其 ML 
K33 "|: 万 
鼻 B 已 3 F 由 H I 
| 1 员 基 本 信 恩 资 料 
12 | 党 号 | 姓名 性 民 级 和 业 -一 | 联系 方式 I 奏 售 号 
. ET 条理 | 北京 | 42286045 
4 EI Te 算 机 信息 管理 | 上 海 |1312451*ee* |16 凡 101 
加 ET CCE 年 可 一 计 | 计算 机 信息 从 
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1.3 目 动 保 护 学 员 资 料 表 


保护 工作 表 是 为 了 防止 工作 表 中 的 数据 被 无 意 或 恶意 修改 、 删 除 。 如 果 工 作 筹 中 的 工作 表 数 量 较 多 ， 逐 个 工作 表 地 进行 保护 是 比较 麻烦 的 事情 。 本 节 将 通过 录制 安 并 修改 安 代 码 来 实现 自动 对 所 有 工作 
表 进 行 保护 。 


扫 码 看 视频 


本 F: 实例 文件 \ 第 1 章 \ 原 始 文件 \ 保 护 工作 表 .xlsm 


后 


实例 文件 \ 第 1 章 \ 最 终 文 件 \ 保 护 工 作 表 .xlsm 


完成 “学 员 基 本 信息 资料 ”表格 的 创建 后 ， 本 小 节 将 对 其 进行 保护 ， 并 将 相关 操作 录制 为 安 ， 用 于 一 键 保 护 所 有 工作 表 。 具 体操 作 如 下 。 
录制 安 。 打 开 原 始 文件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 “录制 安 ” 按 钮 ， 弹 出 “录制 安 ” 对 话 框 ， 在 “ 宏 名 ”文本 框 中 输入 “保护 工作 表 ” ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 


| 
’ 
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3777| 邮 月 
3778| 汉 梦 龙 
3779| 损 明智 
3780| 孜 然 
3781| 谢 飞 _ 
EE 儿 | 


村 目 


| 


步骤 02 ”保护 工作 表 。 返 回 工作 表 ， 在 “审阅 ”选项 卡 下 单 击 “ 更 改 ” 组 中 的 “保护 工作 表 ” 按 钮 ， 如 下 图 所 示 。 


power Pivot QQ 告诉 我 ... 


新 建 批 注 删除 上 一 条 下 一 条 


a 工作 表 工作 簿 工作 秒 


修订 


各 保护 Hh 
Ey 


步骤 03 ”设置 保护 密码 。 弹 出 “保护 工作 表 ” 对 话 框 ， 在 “取消 工作 表 保护 时 使 用 的 密码 ”文本 框 中 输入 “123456”， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


-年 
一 年 ， tellin li 
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| 
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+ 四 本 四 加 本 本 天 晤 要 加 


[| 
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ww | 
陈好 ”| 女 

3776| 罗 丹 | 女 
脑 | 男 
冯梦龙 | 男 
孜 然 。 | 友 
谢 飞 | 田 


步骤 05 ”查看 保护 工作 表 后 的 效果 。 单 击 “ 停 止 录 制 ” 按 钮 ， 结 束 宏 的 录制 。 在 任意 单元 格 中 输入 内 容 ， 此 时 会 弹出 提示 框 ， 提 示 用 户 若 要 修改 工作 表 ， 需 要 先 撤销 保护 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 


下 图 所 示 。 


学 员 基本 信息 资料 
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20183772| 刘 欢 ”| 女 | 一 年级 一 下 EEC | 北京 一 一 一 1s 纺 2101】 
Microsoft Excel A 


企 您 试图 更 改 的 单元 格 或 图 表 位 于 和 妥 保 护 的 工作 雪 中 。 著 要 进行 更 改 ， 请 取消 工作 妻 保 护 。 和 您 可 能 需要 输入 密码 。 
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步骤 06 编辑 “保护 工作 表 ” 宏 的 代码 。 按 Alt+F8 组 合 键 , 打开“ 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 保 护 工作 表 ” 选 项 ， 单 击 “ 编 辑 ”按钮 ， 如 下 图 所 示 。 


做 蛙 { 问 


步骤 07 查看 “保护 工作 表 ” 宏 的 代码 。 进 入 VBE 编 程 环 境 ， 在 打开 的 “模块 3 (代码 ) ”窗口 中 会 显示 如 下 图 所 示 的 代码 段 ， 即 “保护 工作 表 ” 宏 对 应 的 代码 ， 它 仅 能 保护 当前 激活 的 工作 表 。 


-oJ 区 


让 保护 工作 表 1) 
”保护 工作 表 完 


Lctivesheet. Protect Drawinsdbjects:=Irue, Contents:: 
End Sub 


步骤 08 修改 “保护 工作 表 ” 宏 的 代码 。 在 “模块 3 (代码 ) ”窗口 中 修改 “保护 工作 表 ” 宏 的 代码 ， 得 到 如 下 图 所 示 的 代码 段 ， 该 段 代 码 中 使 用 For Each...Next 循 环 语 句 对 每 个 工作 表 进 行 保护 ， 并 
设置 保护 密码 为 “123456”。 


Sub 保护 工作 表 
” 循环 保护 当前 工作 水中 的 每 个 工作 表 
For Each one In Worksheets 
one. Select 


"保护 工作 表 ， 训 下 密码 为 1234556 
hctiveSsheet. Protect Password:=123456, 
Drawins0bJects:=Irue, Contents:=TIrue, 
SCENarlos:=True 
Next one 
End Sub 


知识 链接 ”使 用 宏 设 置 保护 工作 表 密 码 


使 用 录制 宏 功 能 得 到 的 保护 工作 表 代 码 ， 并 不 会 记录 操作 过 程 中 设置 的 保护 密码 。 将 该 宏 用 于 保护 其 他 工作 表 时 ， 只 需 单 击 撤销 按钮 即 可 撤销 保护 。 若 要 设置 保护 密码 ， 则 应 在 Protect 方 法 中 添加 
Password 参 数值 。 


步骤 09 执行 “保护 工作 表 ” 宏 。 返 回 工作 表 ， 按 Alt+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 保 护 工 作 表 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


下 一 全 


Microsoft Excel A 


Sheet1 | Sheet2 | Sheet3 | @® 


1.3.2 撤销 工作 表 保 扩 


若 要 撤销 对 当前 工作 簿 中 所 有 工作 表 的 保护 ， 也 可 通过 添加 相应 的 宏 代 码 来 实现 。 具 体操 作 如 下 。 


步骤 01 编辑 “保护 工作 表 ” 宏 的 代码 。 继 续 上 一 小 节 的 操作 ， 按 Alt+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 保 护 工 作 表 ”选项 ， 单 击 “ 编 辑 ” 按 钮 ， 如 下 图 所 示 。 


9 建 个 


步骤 02 添加 “撤销 工作 表 保 护 ” 代 码 。 在 “模块 3 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 第 4 ~ 10 行 语句 ， 用 于 撤销 工作 短 中 各 工作 表 的 保护 。 需 注意 的 是 ， 这 里 设置 的 保护 密码 都 是 “123456” 。 


( 列 用 ) ~v | | 撤 稍 工作 表 保 护 
Scenarlos :=True 
Next one 
End sub = 
了 Ei= BL 1 注 TT 三 上 | 个 
sub 撤销 工作 表 保 护 〇 


For Each one In Worksheets 


one. Select 
ActiveSheet. Unprotect Password:=123456 
Next one 
End Sub 


高 手 点 拨 : 撤销 工作 表 保 护 


在 本 实例 中 ,使 用 宏 代 码 撤销 所 有 工作 表 的 保护 的 前 提 是 ， 为 各 工作 表 设 置 的 保护 密码 是 一 致 的 。 


步骤 03 ”执行 安 。 返 回 工作 表 ， 按 At+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “撤销 工作 表 保 护 ” 选 项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


步骤 04 ”查看 最 终 效果 。 程 序 执行 完成 后 ， 系 统 自 动 切换 到 Sheet3 工 作 表 ， 在 单元 格 A1 中 输入 “20180322” ， 将 不 会 弹出 保护 提示 框 ， 如 下 图 所 示 。 


ene ene choe3 1 


本 章 以 员工 工资 管理 中 的 输入 员工 档案 信息 、 输 入 员工 工资 及 计算 员工 工资 排名 为 例 ， 利 用 VBA 程 序 实现 以 简易 交互 的 方式 输入 每 个 员工 的 档案 信息 ， 然 后 实现 员工 编 
联 ， 最 后 对 工资 进行 排名 ， 且 将 名 次 写 入 相应 的 单元 格 中 ， 并 以 对 话 框 的 形式 显示 薪资 前 10 名 的 员工 姓名 和 相应 的 实 发 工资 。 


与 员工 姓名 、 工 资 卡号 的 关 


由 


在 输入 员工 档案 信息 时 ， 员 工 编号 、 姓 名 、 性 别 、 所 在 部 门 、 工 龄 、 联 系 方式 、 工 资 卡 号 等 都 有 一 定 的 限制 条 件 。 例 如 ， 工 资 卡号 的 位 数 是 特定 的 ， 并 且 位 数 较 多 ， 在 输入 时 易 出 错 。 本 实例 将 通过 编 
写 VBA 代 码 ， 实 现 员工 档案 信息 的 简易 交互 式 输 入 ， 并 在 输入 过 程 中 对 用 户 所 输入 数据 的 有 效 性 进行 判断 和 提示 ， 以 保证 输入 的 数据 都 是 有 效 的 。 


扫 码 看 视频 


~ 


Le F: 实例 文件 \ 第 2 章 \ 原 始 文 件 \ 员 工 档案 的 简易 交互 输入 .xlsm 


实例 文件 \ 第 2 章 \ 最 终 文件 \ 员 工 档案 的 简易 交互 输入 .xlsm 


2.1.1 ”编写 激活 程序 的 事件 过 程 


员工 档案 信息 的 简易 交互 输入 ， 需 先 确认 激活 程序 的 事件 ， 然 后 编写 相应 的 代码 。 本 小 节 将 介绍 如 何 编写 激活 程序 的 事件 过 程 代 码 ， 具 体操 作 如 下 。 


) 烛 
将 
| 


步骤 01 进入 VBE 编 程 环境 。 打 开 原 始 文件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 。 


开始 揪 入 和 见面 布局 A 
i ee 
各 一 a 让 过 
= 加 ”Excel COM 加 载 项 


息 去 安全 性 载 砚 ”加载 项 
加 载 项 


Visual Basic “” 宏 


员工 编 亏 姓名 


步骤 02 ”编写 激活 程序 的 事件 过 程 代码 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 双击 Sheet1， 然 后 在 “sheet1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 并 保存 。 


"在 观 击 单元 格 的 时 候 自动 调用 
Private Sub Worksheet BeforeDoubleClick _ 
(EyVal Target As Range，Cancel As Boolean) 
It Target.Column = 1 Then 
交互 输 入 《Target.Row) 
End If 
End Sub 


知识 链接 ”Excel VBA 的 基础 知识 


Excel VBA 是 一 种 完全 面向 对 象 体系 结构 的 编程 语言 ， 能 够 极 大 地 扩展 Bxcel 的 功能 ， 其 语法 包括 事件 、 对 象 、 属 性 及 方法 等 。 


2.1.2 编写 “交互 输入 ”过 程 代码 


在 激活 程序 的 事件 过 程 中 调用 了 名 为 “交互 输入 ”的 过 程 来 启动 简易 交互 输入 ， 接 下 来 就 需要 编写 “交互 输入 ”过 程 的 代码 ， 才 能 实现 简易 交互 输入 。 具 体操 作 如 下 。 


步骤 01 插入 模块 。 继 续 上 一 小 节 的 操作 ， 在 菜单 栏 中 单 击 “ 插 入 ”菜单 ， 在 展开 的 列表 中 单 击 “ 模 块 ”命令 ， 如 右 图 所 示 。 


Microsoft Visual Basic for Applications - 员工 档案 的 简易 交互 输入 .xlsm 


4 YBAProje 到 必 芋 pe 
3 是 YBAProject 【《 品 丁 档 于 _ 
日 pt Exoel 对 和 . 在 双击 单元 格 的 钱 


. Private Sub Work 
… 因 | Sheet2 (Sheet2) (ByVal Targe 
Sheet3 (Sheet3) If Target. Co 
ThisWorkbook 交互 输入 

考 End It 


步骤 02 ”定义 “交互 输入 0” 过程。 在 “模块 1 (代码 ) ”窗口 中 输入 如 右 图 所 示 的 代码 段 。 该 代码 段 使 用 Sub 语 句 来 定义 过 程 的 名 称 、 参 数 。 在 构成 过 程 主体 的 代码 中 ， 首 先 使 用 
Application.ScreenUpdating=False 语 句 关闭 屏幕 刷新 ， 再 编写 多 个 Do...Loop 循 环 语句 ， 每 个 循环 语句 中 都 调用 了 一 个 自 定义 输入 函数 ， 如 InputName() 函 数 等 ， 直 到 用 户 输入 的 信息 正确 ， 循 环 调用 才 
结束 。 


| ~ 


ma 


奖 现 区 互 狂 入 的 主体 流程 : 网 
Sub 区 马 输 入 (rowNun As Integer) nm 


Application. ScreenUpdating = False 
Din result hs Boolean 
Do 


result = InputNHun (rowHun) 
Loop Until (result = True) 
Do 

result = InputNane (rowNunm) 
Loop Until (result = True) 
Do 

result = InputSexkrowNum) 
Loop Until (result = True) 
Do 

result = InputDepkrowNun) 
Loop Until (result = True) 


End sub 
< ?os 


重点 语法 与 代码 剖析 : Do...Loop 语 句 的 用 法 
大 语法 格式 
Do[{ While | Until} condition] 
[statements] 
[Exit Do] 
[statements] 
Loop 
大 功能 说 明 


当 条 件 为 True， 或 直到 条 件 变 为 True 时 ， 重 复 执行 一 个 语句 块 中 的 代码 。 其 中 ，condition 是 可 选 参数 ， 可 以 是 数值 表达 式 或 字符 串 表 达 式 ， 其 值 为 True 或 False。 如 果 condition 为 Null， 则 condition 会 被 当成 
False。statements 是 要 被 重复 执行 的 一 行 或 多 行 代码 。 另 外 ， 还 可 以 在 Do…Loop 中 的 任意 位 置 放置 任意 数量 的 Exit Do 语句 ， 随 时 跳出 Do…Loop 循 环 。 


步骤 03 ”继续 编写 “交互 输入 0” 过 程 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 的 End sub 语句 之 前 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 主 要 使 用 循环 语句 调用 InputPost0、Inputseniority()、 
InputPhone0、lInputAccount(0 等 自 定义 函数 ， 然 后 使 用 Application.ScreenUpdating=True 语 句 启 动 屏 幕 刷新 。 


result = InputPost (rowNunm) 
Loop Until (tresult = True) 
Do 
result = InputSeniority (rowHNunm) 
Loop Until (result = True) 
Do 


result = InputPhone (rowlNum) 
Loop Until (result = True) 
Do 


result = Inputaccount (rowNum) 
Loop Until (result = True) 
Application,. ScreenUpdating = True 


步骤 04 编写 InputNum() 函 数 的 前 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 来 定义 InputNum() 函 数 ， 其 中 调用 InputBox() 函 数 来 获取 用 户 在 对 话 框 中 输入 的 文本 信息 
并 赋值 给 变量 answer， 然 后 使 用 上 f 语 句 判定 当 用 户 单 击 对 话 框 中 的 “取消 ”按钮 时 ， 跳 过 该 步骤 。 


Ei 
Loop Until (result = True) 
Do 
result = InputPhone (rowNum) 
Loop Until (result = True) 
Do 


result = Inputhccount (rowlNum) 
Loop Until (result = True) 
Application. ScreenUpdating = True 


End Sub 
局 编 亏 pK 3 
Function ln his Integer) As Boolean 
Dim answer hs String 
answer = InputBoxt 请 输入 员工 编号 ”) 
It answer = Then 
lInputNunm = True 
Exit Funct1lon 
End If 


知识 链接 “Application.ScreenUpdating 属 性 的 用 法 


当 程 序 运行 时 ， 不 关闭 屏幕 刷新 会 影响 运行 速度 ， 因 此 ， 在 编写 程序 时 ， 经 常会 在 开始 部 分 用 Application.ScteenUpdating=Fasle 语 名 关闭 屏幕 刷新 ， 在 末尾 用 Application.SctfeenUpdating=True 语 名 重新 开局 
屏幕 刷新 。 


步骤 05 ”编写 InputNum() 函 数 的 后 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 主要 通过 调用 Len (函数 判断 用 户 输入 的 文本 的 位 数 是 否 符合 要 求 ， 如 果 判 断 结 果 
为 真 ， 则 写 入 工作 表 中 ; 否则 弹出 提示 框 。 其 中 ，Trim() 函 数 的 作用 是 去 掉 输 入 文本 信息 中 的 首尾 空格 。 


地 用 


If answer =“”Then 
InputNum = Irue 
Exit Function 
End I 
answer = Trim'tanswer) 
InputNum = False 
On Error GoTo prompt 
Dim digit As Loneg 
digit = CLneg (answer) 
If Lenlanswer) = 6 Then 
InputNum = True 
End I 
It InputNum = True Then 
, Worksheets (1).Cells (rowhNunm, 1) = answer 
上 LS 
prompt: NSsgBox (信和 输 六 内 容 必 须 为 6 位 数字 ， 请 重新 输入 ”) 
End I+t 
End Function 
< 


步骤 06 编写 InputName() 函 数 的 前 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 调用 InputBox() 函 数 来 获取 用 户 在 对 话 框 中 输入 的 文本 信息 并 赋值 给 answer， 
然后 使 用 If 语句 判定 是 否 跳 过 该 步骤 ， 并 在 其 中 使 用 Dim 语 句 来 定义 变量 的 类 型 。 


If Len(lanswer) 
TInputNunm = 
End I+i 
If InputNum = True Then 
Worksheets(l) .Cells(rowNun，1) = answeT 
Else 
prompt: MsgBox (“输入 内 容 必 须 为 6 位 数字 ， 人 请 重 新 输入 ”) 
End I 
End Functi on 
省 12 ee BE 
Function InputNane pb hs Integer) is Boolean 
Dim answer As Stri : 
answer = InputBox(” “ 靖 输入 员工 姓名 ”) 
It answer = Then 
InputName = True 
Exit Function 
End I 


知识 链接 ” 自 定 义 函 数 和 过 程 
在 Excel VBA 中 ， 用 户 可 将 需要 反复 使 用 的 代码 写 入 自 定义 函数 或 过 程 中 ， 从 而 简化 代码 。 自 定义 函数 可 使 用 Function…End Function 语 句 ， 自 定义 过 程 可 使 用 Sub…End Sub 语 句 。 
重点 语法 与 代码 剖析 : InputBox0 浮 数 的 用 法 
大 语法 格式 
InputBox (prompt[, title][, default][, xpos][, ypos][, helpfile, context]) 
大 功能 说 明 


在 程序 中 调用 InputBox0 函 数 时 ， 将 会 弹出 一 个 对 话 框 ， 其 中 包括 提示 信息 、 一 个 用 于 输入 的 文本 框 及 一 组 “确定 ”和 “取消 ”按钮 ， 用 户 输入 的 文本 信息 就 是 InputBox0 函数 的 返回 值 。 其 中 ，prompt 是 


必需 参数 ， 数 据 类 型 为 String， 用 于 设置 弹出 对 话 框 中 的 提示 信息 ;title 是 可 选 参 数 ， 数 据 类 型 为 String， 用 于 设置 弹出 对 话 框 的 标题 ，default 是 可 选 参 数 ， 数 据 类 型 为 String， 其 内 容 会 在 用 户 输入 前 作为 默认 
值 显示 在 文本 框 中 。 


步骤 07 编写 InputName() 函 数 的 后 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 主 要 用 于 将 用 户 输 入 的 信息 写 入 工作 表 中 指定 的 位 置 。 


InputHane 


) Worksheets (1).Cells (rovwHun, 1) = answer 
Else 
prompt: MsgBox ("输入 内 容 必 须 为 6 位 数字 ， 请 重新 输入 ”) 
End I+t 
End Funct1lon 
"输入 姓名 的 因数 
Function InputName (rowNun As Integer) As Boolean 
Dim answer As String 
answer = InputBoxt 请 办 站 六 员工 姓名 ”) 
If answer =“”Then 
lnputName = True 
Exit Funct1ion 
End I+ : 
answer = Trim'(answer) | 
Yorksheets (1).Cells (trowhNun, 2) = answer 
InputName = True 
End Function 


€ 


步骤 08 编写 InputSex(0 遂 数 的 前 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 调用 InputBox0() 函 数 来 获取 用 户 输入 的 文本 信息 ， 并 定义 了 一 个 字符 串 数 组 
sex (2) ， 且 为 数组 变量 赋予 固定 值 。 


If answer = “” Then 请 
JInputName = lrue 
Exit Funct1on 
End I+ | 
answer = Trim(answer) 
Worksheets (1).Cells (rowNum, 2) = answer 
InputName = True 
Spe Fnctlon 
FP 可 BN 
Function Tnputsex (rovilun hs Integer) is Boolean 
Dim answer hs String 
answer = InputBox(” 请 输 和 六 员工 性 别 ”) 
answer = Trim'(answer) 
InputSex = False 
Dinm sex (2) as String 
sex(l1l) = 
seEx(2) = “ 妈 。 


重点 语法 与 代码 剖析 : Dim...As 语 句 的 用 法 

大 语法 格式 

Dim[WithEventsjvatname[ ([subsctipts]) ][As[INewjtypel[，[WithEventslvatname[ 〈[subsctpts]) ]As[INewjtype]… 
大 功能 说 明 


声明 变量 并 分 配 存储 空间 。 其 中 ，WithEvents 是 可 选 参 数 ， 说 明 varname 是 一 个 用 来 响应 由 ActiveX 对 象 触发 的 事件 的 对 象 变 量 ， 它 只 有 在 类 模块 中 才 是 合法 的 。 使 用 WithEvents 可 以 声明 任意 数量 的 单 变 
量 ， 但 不 能 使 用 WithEvents 创 建 数组 。New 和 WithEvents 不 能 一 起 使 用 。vatname 是 必需 的 ， 指 变量 的 名 称 ， 应 遵循 标准 的 变量 命名 约定 。subsctipts 是 可 选 参数 ， 指 数组 变量 的 维 数 ， 最 多 可 以 定义 60 维 的 多 维 
数组 。New 是 可 选 参数 ， 使 用 New 来 声明 对 象 变量 ， 则 在 第 一 次 引用 该 变量 时 将 新 建 该 对 象 的 实例 ， 因 此 不 必 使 用 Set 语 名 来 给 该 对 象 引 用 赋值 。New 关 键 字 不 能 声明 任何 内 部 数据 类 型 的 变量 及 从 属 对 象 的 
实例 。type 是 可 选 参 数 ， 用 来 指定 变量 的 数据 类 型 。 


步骤 09 编写 InputSex0 逊 数 的 后 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 使 用 For 循 环 语句 将 answer 的 值 与 数组 sex (2) 中 的 每 一 个 值 进行 比较 ， 如 果 相 
同 ， 则 退出 该 函数 ， 否 则 弹出 对 话 框 ， 提 示 只 能 在 文本 框 中 输入 “ 男 ” 或 “ 女 ”， 并 且 要 求 重新 输入 。 


-] meatse 


Dim answer As Strin a| 
answer = InputBox(” “ 谓 输 入 员工 性 别 * ) 
answer = Trinm(answer) 
InputSex = False 
Dinm sex (2) hs String 
sex(l) = 
sex(2) = “ 妈 ” 
For Each one In sex 
It answer = one Then 
JInputsex = lrue 
End I+t 
Next one 
If InputSex = True Then 
Worksheets (1).Cells (rowNunmn, 3) = answer 
Else 
NsgBox ( 只 艇 输入 男 或 女 ， 请 昔 新 输入 ”) 
End I 
End Function 


< 


步骤 10 ”编写 InputDep0) 函 数 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 调 用 InputBox0 遂 数 来 获取 用 户 输入 的 文本 信息 ， 并 使 用 Trim() 函 数 去 掉 输 入 的 文本 信息 中 
的 首尾 空格 ， 再 将 处 理 后 的 文本 信息 写 入 工作 表 中 指定 的 单元 格 中 。 


地 用 ) v 
If Inputsex = True Then | 
| Worksheets (1).Cells (rowNHum, 3) = answer 
Klse 
sgBox 人 《只 能 输入 出 或 女 ， 博 重新 答 入 ”) 
End I+t 
End Functlon _ 
“ 答 六 所 属 刘 | ] 的 区 多 
Funct1on ee his Integer) As Boolean 
Dim answer As Strl 
answer = InputBox(” “请 输入 所 属 部 门 ”) 
It+ answer = Then 
lInputDep = True 
Exit Functlon 
End If 
answer = Trinm't(ianswer) 
Worksheets (1) .CellslrowNunm, 4 = answer 
lnputDep = lrue 
End Function 


< 


步骤 11 编写 InputPost0 函 数 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 用 于 定义 输入 员工 职务 的 InputPost(0) 函 数 ， 其 代码 与 InputDep() 函 数 的 代码 类 似 。 


ER 
Exit Function 
End I+ 
answer = Trim(answer) | 
Worksheets (1).Cells (rowNun, 4) = answer 
InputDep = True 
End Functlon 
出 人 入职 劳 日 J 名 
Function InputPo pe hs Integer) As Boolean 
Dim answer hs Strin : 
answer = TnputBox(" 请 输入 取 务 ") 
It answer = Then 
er lrue 
Exit Hunctlon 
End I+ | 
answer = Trinm'(answer) 
Worksheets (1).Cells (rowHun, 5) = answer 
InputPost = True 
End Function 


步骤 12 编写 InputSeniority0 浮 数 的 前 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 调用 InputBox0 逊 数 来 获取 输入 的 文本 信息 并 赋值 给 变量 answer， 调 用 
Trim(0 函 数 去 掉 输 入 的 文本 信息 中 的 首尾 空格 ， 最 后 调用 Clnt0 函 数 将 变量 answer 转 换 为 整数 型 ， 并 赋值 给 变量 Seniority。 


Worksheets (1).Cells rowNun, 5) = answer 
lInputFost = Irue 
End Functlon 
Th Es 
Function InputSenioritytrowNunm hs Integer) hs Boolean 
Dim answer hs String, er 
answer = InputBox( 倩 输 入 员工 工龄 ”) 
If answer = Then 
InputSenlorlty = True 
Exit Function 
End I+ 
answer = Trim'(answer) 
InputSeniority = False 
On Error GoTo prompt 
Dim Seniority hs Integer 
Seniority = CInt ‘(answer) 


步骤 13 ”编写 InputSeniority0 函 数 的 后 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 其 中 使 用 If 语 句 判断 Seniority 变 量 的 值 是 否 在 1 ~ 50 之 间 (不 含 和 50) ， 如 果 不 是 ， 
则 弹出 对 话 框 提示 输入 内 容 格 式 错 误 或 超出 范围 ， 并 要 求 重新 输入 。 


InputSeniority 


InputSeniority = True 
Exit Function 
End I+ 
answer = Trinm(answer) 
InputSeniority = False 
On Error Golo prompt 
Dim Seniority As Integer 
Seniority = CInt'(answer) 
It Seniority > 1 And Seniority «< 50 Then 
InputSeniority = True 
End I+t 
It InputSenlorlty = True Then 
Worksheets (1).Cells (rowNun, 6 = answer 
Else 
prompt: sgBox 《输入 内 容 格 式 错 误 或 超出 范围 ， 博 重新 输入 ”) 
End I+ 
End Function 


步骤 14 编写 InputPhone0 函 数 的 前 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 其 中 使 用 On Error GoTo 语 句 指出 ， 当 InputPhone() 函 数值 为 假 时 ， 错 误 信 息 提示 代码 
所 在 的 位 置 。 


InputPFhone 


Vorksheets (1).Cells(lrowNum, 6) = answer 


Flse 
Ps ee “输入 内 容 格式 错误 或 超出 范围 ， 博 重新 输入 ”) 
End i 
输入 联系 万 式 , 


Function noetPhone Ge AS Integer) AS Boolean 
Dim answer As Strin 
answer = InputBox(” “请 输入 员工 的 联 系 方式 (11 位 )”) 
If answer = “° Then 

InputPhone = True 
Exit Functlion 
End I+i 
answer = Trim(answer) 
InputPhone = False 
On Error Golo prompt 


条 | Ea 


重点 语法 与 代码 剖析 : Worksheet 对 象 的 引用 


要 索引 Worksheets 集 合 中 的 Worksheet 对 象 ， 可 以 用 数字 序号 或 表 名 的 方法 ， 如 本 实例 中 的 Worksheets (1) 。 


其 中 ， 数 字 序 号 代表 工作 表 在 工作 簿 中 的 位 置 ， 最 靠 左 的 工作 表 的 数字 序号 为 1， 最 靠 右 的 工 
作 表 的 数字 序号 是 Wotksheets.Count。 如 果 要 访问 名 为 “ 


“员工 档案 ”的 工作 表 ， 则 可 以 使 用 Worksheets (“ 员 工 档案 ”) 来 索引 。 
步骤 15 编写 InputPhone() 遂 数 的 后 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 


， 该 代码 段 主 要 用 于 判定 输入 的 文本 信息 的 位 数 是 否 为 11 位 ， 如 果 不 是 ， 则 弹出 对 话 框 提 
示 输 入 的 内 容 必须 为 11 位 数字 。 其 中 调用 了 Len0 浮 数 ， 用 于 统计 变量 answer 值 的 字符 串 位 数 。 


CR 


If answer = “” Then 
InputPhone = True 
Exit Function 
End I 
answer = Trim(answer) 
InputPhone = False 
On Error GoTo prompt 
If Len(lanswer) = 11 Then 
InputPhone = True 
End I+ 
If InputPhone = True Then 
本 Worksheets (1).CellstrowNun, 7) = answer 
-= 
i TN 性 输 六 的 内 容 必 须 为 11 位 数字 ， 人 请 重新 输入 ”) 
nd 工 


End Funct1on 


A 


步骤 16 编写 InputAccount() 遂 数 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 用 于 定义 输入 工资 卡号 的 InputAccount0 函 数 ， 其 代码 与 InputPhone() 遂 数 的 代码 类 
似 。 它 们 都 需要 限制 输入 的 文本 信息 的 位 数 。 


FT 
二 关卡 二 抽 贡 并 A 


ne InputAccount (rowNunm LAs Integer) As Boolean 
Din answer hs String 
answer = InputBox(” 请 输入 员工 工资 卡号 (后 9 位 ) 办 
It answer = Then 
Inputhccount = True 
Exit Functlon 
End I 
answer = Trinmtanswer) 
InputAccount = False 
Dn Error Golo prompt 
If Len(answer) = 9 Then 
InputAccount = True 
End If 
It Inputaccount = True Then 
Vorksheets (1).CellstrowNunmn, 8) = answer 


Else 
hi es 输入 的 内 容 必 须 为 9 位 数字 ， 请 重新 输入 ”) 
n 


End Function 


步骤 17 ”返回 Excel 视 图 。 完 成 函数 的 定义 后 ， 单 击 菜单 栏 中 的 “文件 ”菜单 ， 在 展开 的 列表 中 单 击 “ 关 闭 并 返回 到 Microsoft Excel” 命 令 ， 如 右 图 所 示 ， 即 可 返回 Excel 视 图 。 


| 文件 (9 上 编辑 (E) ”视图 (V) 插入 () 格式 (O) ”调试 [D) 运行 R) 工具 中 
保存 员工 桂 案 的 简易 交互 输入 xlsm(9) Ctr+S 此 | 避 略 罕 
导入 文件 人 D.. Ctrl+M 
导出 xfH(E)-- Ctrl+E 


Ctrl+P 


tion InputAcco 
Dinm answer Bs Strl 
answer = 
It answer 


2.1.3 ”运行 代码 


完成 交互 输入 代码 的 编写 后 ， 用 户 可 以 通过 运行 代码 来 检验 代码 是 否 正确 ， 能 否 实现 预期 的 功能 。 具 体操 作 如 下 。 


步骤 01 输入 员工 编号 。 继 续 上 一 小 节 的 操作 ， 双 击 Sheet1 中 的 单元 格 A3， 弹 出 对 话 框 ， 在 对 话 框 中 显示 提示 信息 “请 输入 员工 编号 ”， 在 文本 框 中 输入 员工 编号 “010001”， 单 击 “ 确 定 ”按钮 ， 
如 下 图 所 示 。 


上 F 
员工 档案 
姓名 ”性 别 所 在 部 门 、 职务” 工龄 。 联系 方式 


Microsoft Excel 
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步骤 02 输入 员工 姓名 。 在 工作 表 中 弹出 第 2 个 对 话 框 ， 提 示 用 户 输入 员工 姓名 ， 在 文本 框 中 输入 “陈好 ”， 输 入 完毕 后 单 击 “确定 ”按钮 ， 如 下 图 所 示 。 


上 F 
员工 档案 
姓名 ”性 别 所 在 部 门 ， 职 务工 共 


Microsoft Exce| 


重点 语法 与 代码 剖析 : 调用 InputBox0 函 数 在 工作 表 中 显示 的 形式 


在 程序 中 调用 InputBox0 函 数 后 会 弹出 对 话 框 ， 如 果 在 弹出 对 话 框 的 文本 框 中 输入 内 容 ， 然 后 单 击 “确定 ”按钮 ， 则 输入 的 内 容 将 作为 函数 的 返回 值 ; 如 果 单 击 “ 取 消 ” 按钮 ， 则 无 论文 本 框 中 输入 的 是 
什么 ， 返 回 值 都 是 空 字符 囊 。 


步骤 03 ”输入 员工 性 别 。 在 工作 表 中 弹出 第 3 个 对 话 框 ， 提 示 用 户 输入 员工 性 别 ， 在 文本 框 中 输入 “ 女 ”， 输 入 完毕 后 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


[上 | EF F 
员工 档案 


[号 工 组 姓名 性别 所 和 芷 部 1 门 取 务 工 和 部 联系 万 式 


男 
Microsoft Excel 


| 


请 输入 员工 性 别 


] 
2 
四 
ry 
| 
6 | 
站 
3 | 


步骤 04 输入 所 属 部 门 。 在 工作 表 中 弹出 第 4 个 对 话 框 ,提示 用 户 输入 所 属 部 门 ， 在 文本 框 中 输入 “行政 部 ”， 输 入 完毕 后 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


姓名 ”性别 ”所 在 部 |] 职务。 工 如 


Microsoft Excel 


9 
6 
下 
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步骤 05 输入 职务 。 在 工作 表 中 弹出 第 5 个 对 话 框 ,提示 用 户 输入 员工 的 职务 ， 在 文本 框 中 输入 “秘书 长 ”， 输 入 完毕 后 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


9 F 
员工 档案 
| 且 开 匀 | 共用 性 列 所 在 名门 职务 ， 工 疮 | 联系 方 式 


Microsoft Excel 人 ] 


| 


十 | 届 I 哺 
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步骤 06 输入 员工 工龄 。 在 工作 表 中 弹出 第 6 个 对 话 框 ， 提 示 用 户 输入 员工 工龄 ， 在 文本 框 中 输入 “3”， 输 入 完毕 后 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


员工 档案 


2 人 姓名 ”性 别 ” 所 在 部 门 ” 取 务工 再 


Mcrosoft Excel 


步骤 07 输入 联系 方式 。 在 工作 表 中 弹出 第 7 个 对 话 框 ,提示 用 户 输入 员工 的 联系 方式 ， 在 文本 框 中 输入 11 位 手机 号 ， 输 入 完毕 后 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


上 FH 
员工 档案 
工 绽 引 浆 名 性别 所 在 部 门 ， 职 务 工龄 联系 方 


-0 


Microsoft Excel 


请 模 入 员工 的 联系 方式 (11 位 ) 
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E: 
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ff 
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步骤 08 ”输入 员工 工资 卡号 。 在 工作 表 中 弹出 第 8 个 对 话 框 ， 提 示 用 户 输入 员工 的 工资 卡号 ， 在 文本 框 中 输入 “566789732” ， 输 入 完毕 后 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


上 F 
员工 档案 
姓名 ” 性别” 所 在 部 门 ” 职务” 工 莹 。 联系 方式 
Microsoft Excel x 


。 取消 


566169732 


步骤 09 输入 错误 的 员工 编号 。 此 时 可 看 到 在 8 个 对 话 框 中 输入 的 数据 被 自动 写 入 到 双击 单元 格 对 应 的 行 中 。 双 击 单元 格 A4， 工 作 表 中 将 再 次 弹出 对 话 框 ， 提 示 输 入 员工 编号 ， 输 入 员工 编 
号 “01002”， 输 入 完毕 后 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


| EE | YF | 
] 员工 档案 
员工 编 亏 “姓名 性别 所 在 部 门 职务 ”工藤 ” 联系 方式 工资 卡 亏 


en Ex 行政 部 ”秘书 长 3 159ie 8588 F66789732 


Microsoft Excel 


人 


2 
i 

4 

| 
6 | 
| 
8 | 


本 
后 的 | 必 | 芝 


步骤 10 ”提示 员工 编号 为 6 位 数字 。 弹 出 提示 框 ， 提示“ 输入 内 容 必须 为 6 位 数字 ， 请 重新 输入 ”， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 重 新 弹出 输入 员工 编号 的 对 话 框 ， 然 后 输入 正确 的 员工 编号 ， 
并 单 击 “ 确 定 ” 按 钮 。 


] FF | 
员工 档案 

员工 编号 姓名 性别” 所 在 部 门 ” 职务” 工 英 联系 方式 
” 010001 陈好 友 行政 部 ”我 书 长 3 159]110E888 


Microsoft Excel 


CO =~] Ni I 哺 


步骤 11 输入 员工 性 别 为 数字 。 在 弹出 的 第 2 个 对 话 框 中 输入 员工 姓名 “ 刘 恒 ”， 单 击 “ 确 定 ”按钮 。 弹 出 第 3 个 对 话 框 ， 提 示 输 入 员工 性 别 ， 在 文本 框 中 输入 “1”， 输 入 完毕 后 单 击 “ 确 定 ”按钮 ， 
如 下 图 所 示 。 


员工 编号 姓名 性 别 所 在 部 门 职务 工 疮 联系 方式 
”010001 陈好 女 行政 部 ”秘书 长 3 159iz 寺 半 888 


男 
Microsoft Excel 
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步骤 12 提示 只 能 输入 “ 男 ”或 “ 女 ”。 弹 出 提示 框 ， 提 示 只 能 输入 “ 男 ”或 “ 女 ”， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 重 新 弹出 输入 员工 性 别 的 对 话 框 ， 然 后 输入 正确 的 性 别 “ 男 ”， 并 音 
击 “ 确 定 ”按钮 。 


E F 
员工 档案 
员工 编 亏 ”姓名 性别” 所 在 部 门 职务 ”工商 联系 方式 
010001 陈好 六 行政 部 ”秘书 长 3 159]1i 有 888 


Microsoft Excel 人 


确定 从 


步骤 13 ”输入 员工 工龄 “50”。 在 弹出 的 第 4 个 和 第 5 个 对 话 框 中 输入 相应 的 员工 所 属 部 门 、 职 务 ， 在 弹出 的 第 6 个 对 话 框 中 输入 员工 工龄 “50”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


上 F 
员工 档案 
a 工 纺 与” 娃 名 ”性别 ”所 在 部 |] 职务 ” 工 肯 联系 万 式 


”010001 陈好 女 行政 部 ”秘书 长 3 159LauES888 
国 
Mhicrosoft Excel 


请 辆 入 员工 痊 
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Hh, FH 
员工 档案 
员工 妨 亏 ”姓名 性别” 所 在 部 门 职务 工 莹 联系 方式 
010001 陈好 女 行政 部 ”秘书 长 3 159 e888 


Microsoft Excel 


姓 信 内容 格 式 错 误 或 超出 范围 ， 请 重新 四 人 


步骤 15 ”输入 错误 的 员工 联系 方式 。 弹 出 输入 员工 联系 方式 的 对 话 框 ， 在 文本 框 中 输入 “87532645” ， 输 入 完毕 后 单 击 “确定 ”按钮 ， 如 下 图 所 示 。 


上 F 
员工 档案 
员工 编号 ”姓名 性别 所 在 部 门 ”职务 ， 工 疮 ”联系 方式 
mm - 女 ”行政 部 秘书 长 3 159 训 二天 888 


Microsoft Exce| 


上 F 
员工 档案 
员工 社 三 “姓名 性 别 所 在 部 门 职务 工藤 联系 万 式 
010001 陈好 康 行政 部 。 ”秘书 长 3| TSO WRG 


' Microsoft Excel ww | 


输入 的 内 容 必 须 为 11 位 数字 ， 


步骤 17 ”输入 员工 工资 卡号 不 足 9 位 。 弹 出 输入 工资 卡号 的 对 话 框 ， 在 文本 框 中 输入 “73526425” ， 输 入 完毕 后 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


F F 

员工 档案 
员工 编号 姓名 性 别 所 在 部 门 取 务 ” 工 茵 联系 方式 
” 010001 陈好 女 行政 部 “秘书 长 3 159L888 
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上 FH 
员工 档案 
员工 编 亏 “姓名 ”性别 ”所 在 部 门 职务 ” 工 葵 。” 联系 方式 
” 010001 陈好 要 行政 部 ”秘书 长 3 159ILEE 888 
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2.2 ”实现 员工 编号 与 姓名 、 工 资 卡号 的 关联 


每 个 月 财务 人 员 都 需要 对 员工 的 工资 进行 核算 ， 如 果 每 次 都 输入 员工 的 姓名 、 工 资 卡 号 ， 不 仅 工 作 量 大 ， 还 容易 出 现 错误 。 这 里 用 VBA 程 序 实现 员工 编号 与 员工 姓名 、 工 资 卡 号 的 关联 ， 当 用 户 在 员工 
编号 字段 中 输入 员工 的 编号 后 ， 将 自动 显示 相应 的 姓名 和 工资 卡号 ， 若 未 找到 该 编号 的 员工 ， 则 调用 上 一 节 中 的 简易 交互 输入 过 程 代码 输入 新 的 员工 档案 。 


要 码 看 视频 


他 


[一 一 < 上 : 实例 文件 \ 第 2 章 \ 原 始 文 件 \ 员 工 编号 与 姓名 、 工 资 卡号 关联 .xlsm 


: 实例 文件 \ 第 2 章 \ 最 终 文件 \ 员 工 编 号 与 姓名 、 工 资 卡号 关联 .xlsm 


若 要 实现 员工 编号 与 员工 姓名 及 工资 卡号 的 关联 ， 并 获取 相关 数据 ， 则 首先 应 使 用 代码 创建 新 表格 。 本 小 节 将 介绍 如 何 使 用 代码 创建 新 表格 ， 具 体操 作 如 下 。 


| “ 重 命 名 工作 表 。 打 开 原 始 文件 ， 双 击 sheet2 标 签 ， 然 后 将 其 重 命名 为 “员工 工资 表 ” ， 如 下 图 所 示 。 


步骤 02 ”选取 事件 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 双击 Sheet2 选 项 ， 在 打开 的 “Sheet2 (代码 ) ”窗口 中 设置 “对 象 ”为 Worksheet 选 项 、“ 过 程 ” 为 Activate 选 项 ， 如 下 图 所 示 。 


Private Sub Worksheet Activate 
_End Sub 


Private Sub Worksheet SelectionchangekBYVal Targe- 


Fnd Sub 


步骤 03 ”调用 automatic1() 过 程 。 在 “Sheet2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 。 其 中 ，automatic1 是 用 户 自 定义 的 自动 创建 表格 的 过 程 。 


=lom” x 


Private Sub Worksheet ee 
automatic1l| 


面 | 
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Private Sub Worksheet SelectionChanee (ByYal _ 
Target Ls Range) 


End Sub 


步骤 04 插入 “模块 2 。 在 “工程 ”窗口 的 空白 处 右 击 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 ”命令 ， 如 下 图 所 示 。 


xX 
国 国 | 入 | 虽 


-Solver (SOLYER. ILAN) 


日 题 YBAProject (FwacEES.DI Activate 
量 - YBAProject (员工 编号 与 "Private Sub Worksheet Activate) 
日 : 人 Microsoft Excel 对 象 atitonatjic1 
-- 较 ] Sheetl 【员工 档案 ) Fnd Sub 
时 图 ] Sheaet2 【员工 了 资 表 ， | 
“Private Sub Worksheet_sSelectionChange 
Tareget As Ranee) 


“End sub 


知识 链接 ”事件 
事件 是 指定 对 象 的 触发 反应 ， 例 如 ，Worksheet_change (ByVal Target As Range，Cancel As Boolean) 事件 在 改变 单元 格 内 容 时 被 触发 。 


步骤 05 编写 自动 创建 表 头 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 ， 该 代码 段 用 于 将 固定 的 字符 串 写 入 特定 的 单元 格 中 。 其 中 ，Worksheet (2) .Cells (1，1) 是 指 工 作 簿 中 第 2 
个 工作 表 的 单元 格 A1， 依 此 类 推 。 


| (通用 ) ant 
自动 创建 员 工 工资 表 标 题 和 项目 字段 


Sub YE 
表格 标题 和 项 目 字段 
Worksheet(2) C Bl1s(L，1]1) 
Worksheet(2) .Cel1s(2， 
Worksheet(2) .Cel1s(2， 
Worksheet (2) .Cells (2, 
Worksheet (2).Cells (2, 


号 等 把 


人 | 
HH 料 订 之 各 将 有 E30 


0 
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b= 


Worksheet (2) .Cells (2, 
Worksheet (2) .Cells (2, 
Worksheet (2) .Cells (2, 
Worksheet (2) .Cells (2, 
Worksheet (2) .Cells (2, 


向 时 所 
葵 册 
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步骤 06 编写 设置 标题 字体 格式 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 ， 该 代码 段 用 于 设置 单元 格 区 域 A1: 11 中 文本 信息 的 字体 、 字 形 、 字 体 颜色 、 字 号 及 单元 格 填充 颜 
色 。 


步骤 07 编写 设置 标题 单元 格格 式 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 ， 该 代码 段 主 要 用 于 设置 第 1 行 的 行 高 ， 
中 。 


1 设 站 标题 字体 格式 | 
, 座 熏 的 是 字体 为 阳 文 行 档 
Worksheet (2) . Range(" Al") .Font. nane = “华文 行 楷 ” 
' 设置 标题 字形 为 加 粗 
Worksheet (2). Range (Al:I1”).Font. Bold = True 
:设置 标题 字体 颜色 
Worksheet (2) . Range(t Al1:I1’).Font.Color _ 
RGB (255, 255, 255) 
' 设置 字 龟 
Worksheet (2). Range ("Al1:I1”).Font. Size = 16 
' 设 首 六 


es 


Worksheet (2). Rangel” Al:I1’). Interior.Color _ 
= RGB(0, 102, 204) 


然后 合并 单元 格 区 域 A1: 11， 并 设置 单元 格 水 平 、 垂 直 居 


omaticl 


' 设置 标题 的 单元 格格 式 

"调整 单元 格 的 行 高 

Worksheet (2). Rows (1). RowHeight = 30 

" 音 并 时 元 格 区 域 41 :I1 

Worksheet (2). Range'l" Al :11’). Nerge 

"设置 单元 格 水 平 居 中 

Worksheet (2 .Ranget al:IL ).Horizontalalignnent _ 

= XLCenteT 

" 进 站 意 元 榨 霍 直 后 中 

Worksheet (2). Range(” al:IL ) ,VerticalaAlignnent _ 
= XlCenter 


步骤 08 编写 设置 项 目 字段 字体 格式 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 ， 该 代码 段 与 设置 标题 字体 格式 的 代码 类 似 ， 只 需 将 赋 给 变量 的 值 修改 为 需要 的 值 , 如 “ 黑 
体 ”“12 号 ” 等 


二 本 全 村 代入 于 


Worksheet(2) . Ranzel"A2:12”) .Font.name =“ 黑 体 ” 
' 设置 字形 为 常规 

rorkshegt 2) Raneel’A2:12”).Font.Bold = False 
' 设 首 字体 语 

lad ,Nn _ 
~ = RGB(153, 0, 153) 
" 设 再 字 写 

Worksheet (2) . Raneel aa2:I2 ) ,Font.Size = 12 
设 百 : 色 


a 


Worksheet (2) . Raneel” A2:12”). Interior. Color 
= RGB(153, 204, 255) 


知识 链接 “Range 对 象 的 Merge 方 法 的 用 法 
Range 对 象 的 Merge 方 法 用 于 将 Range 对 象 指 定 的 单元 格 区 域 合并 为 一 个 单元 格 ， 且 合并 后 单元 格 的 值 为 该 区 域 左上 角 单 元 格 的 值 。 


步骤 09 编写 设置 项 目 字段 单元 格格 式 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 并 保存 ， 该 代码 段 主 要 用 于 设置 项 目 字段 所 在 单元 格 的 格式 ， 它 与 设置 标题 单元 格格 式 的 代码 
类 似 。 


3 Cr 


天生 员 二 行 风行 二 及 50 人 有 网 
Worksheet(2) . Rows(2) .RowHeight = | 
' 设置 4~ 卫 列 的 列 宽 为 12 像 素 

Worksheet (2) . Colunns ("A:H’).ColunnWidth = 12 

" 设置 I 列 的 列 宽 为 20 像 系 

Worksheet (2). Colunnst’ I .ColunnWidth = 20 

" 设 苗 A2: 12 单元 格 区 域 的 对 弄 方式 为 水 平 居中 | 

Wi Re A2:12”).Horizontalhilisenment _ 


设置 42: 了 2 时 宇 祝 区 域 的 对 谨 方 式 为 垂直 居中 
Worksheet (2) .Ranee( A2:12”).Verticalhilisnment _ 
= xXlCenter 
End Sub 


步骤 10 ”执行 过 程 。 编 写 完 automatic1(0 过 程 后 ， 返 回 Excel 视 图 。 单 击 “ 员 工 工 资 表 ”标签 ， 在 该 工作 表 中 即 可 自动 创建 如 下 图 所 示 的 表格 。 


员工 档案 | 员工 工资 圣 \ Sheet3 


知识 链接 ”使 用 代码 调整 行 高 和 列 宽 


在 Excel VBA 中 ,使 用 Rows 对 象 的 RowHeight 属 性 和 Columns 对 象 的 ColumnWidth 属 性 可 以 设置 行 高 或 列 宽 为 固定 值 。 


2.2.2 ”编写 员工 编号 与 姓名 、 工 资 卡号 天 联 过 程 代 码 


编写 代码 实现 员工 编号 与 姓名 、 工 资 卡号 的 关联 是 本 实例 的 重 中 之 重 ， 具 体操 作 如 下 。 


步骤 01 编写 启动 关联 过 程 的 代码 。 继 续 上 一 小 节 的 操作 ， 在 “工程 ”窗口 中 双击 Sheet2 选 项 ， 打 开 “Sheet2 (代码 ) ”窗口 ， 在 其 中 输入 如 下 左 图 所 示 的 代码 。 该 代码 段 用 于 启动 “关联 1” 过 程 ， 
它 将 在 单元 格 内 容 发 生 改 变 后 自动 执行 。 


“自动 创建 员工 工资 表 标题 和 项 目 字段 ， 并 设置 其 格式 
Private Sub Yorksheet_ActivateO 
automatlicl 
End sub _ Ee 
当 眉 履 点 别 由 第 3 行 或 第 3 行 以 上 的 数据 时 丧 用 长 过 往 
private sub et (ByVYal Target hs Ranee) 
It Target.Column = 1 ind Target,.row »= 3 ind 
Target.Count = 1 Then 


天 联 1 Target. Flue Target. row 
End I+t 
End Sub| 


步骤 02 ”开始 编写 “关联 1()” 过 程 的 代码 。 在 “工程 ”窗口 中 插入 “模块 3”， 在 “模块 3 (代码 ) ”窗口 中 输入 如 下 右 图 所 示 的 代码 并 保存 。 该 代码 段 主要 用 于 判断 是 否 写 入 了 内 容 ， 然 后 定义 
name、Account 变 量 的 类 型 并 赋予 初始 值 。 


A 及 工资 卡 亏 
sub 天 二 全 UN Ls St ne row hs Integer) 
; 潭 断 眉 百 写作 了 内 容 
If nun = “°° Then 
' 直接 退出 程序 
Exit Sub 
End I+i 
' 声明 name, Account 变 重 分 别 用 于 写 和 工作 表 


Din name As String, Account As String 
name = 
Account = 


岂 疗 


步骤 03 ”编写 “查找 员工 姓名 及 工资 卡号 ”的 代码 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 并 保存 。 该 代码 段 使 用 Select Case 语句 来 查询 每 个 员工 编号 对 应 的 员工 姓名 和 工资 卡号 。 


i= 巨 : 4 


v 
" 用 Select 语 句 根 据 员工 编 亏 查找 姓名 、 工 资 卡 写 ° 


Select Case num 
Case “010001” 
name = “陈好 ” 
account = 566789732" 
Case “010002 
name =“ 刘 恒 ” 
Account = “566789733" 
Case “010003-” 
name =“ 僵 区 
Account = “566789734” 
Case Else 
name = 
Account = ° 
End Select 


记者 


-i 


步骤 04 ”编写 “判断 是 否 找 到 对 应 员工 姓名 ”的 代码 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 。 该 代码 段 用 于 判断 是 否 找 到 对 应 的 员工 姓名 ， 如 果 没有 找到 ， 则 弹出 提示 框 ， 提 示 不 
存在 该 员工 ; 反之 ， 则 将 对 应 的 姓名 和 工资 卡号 写 入 相应 的 单元 格 中 。 


' 判断 是 否 找到 对 应 员工 姓名 ° 
Ift name = Then 


i (“不 三 在 该 员工 ”) 


“将 找到 的 员工 姓名 写 入 相应 的 单元 格 中 
ActiveSsheet, Cellsirow, 2). Yalue = name 


' 将 找到 的 员工 工资 卡号 写 入 相应 的 单元 格 中 


ActiveSheet. Cellstlrow, .Value = Account 
End I+t 


End Sub 


重点 语法 与 代码 剖析 : Select Case 语 句 的 用 法 
大 语法 格式 
Select Case testexpression 
[Case expressionlist-n 
[Statements-n]]…: 
[Case Else 
[elsestatements]] 
End Select 
大功 能 说 明 


该 语句 根据 表达 式 的 值 来 决定 执行 几 组 语句 中 的 某 一 组 。 其 中 ，testexptession 是 必需 参数 ， 可 以 是 任何 数值 表达 式 或 字符 串 表 达 式 ; exptessionlistn 是 可 选 参数 ， 但 当 有 Case 出 现时 ， 它 为 必需 参数 ， 形 式 
为 exptession、 exptession To exptession、 Is compatisonopetatot exptession 的 一 个 或 多 个 组 成 的 分 界 列表 ; statements-n 是 可 选 参 数 ， 可 以 是 一 条 或 多 条 语句 ; elsestatements 也 是 可 选 参数 ， 可 以 是 一 条 或 多 条 语 
多 ， 当 testexptession 不 匹配 Case 子 多 的 任何 部 分 时 执行 。 


注意 : 该 语句 不 适用 于 Case 条 件 较 多 的 情况 ， 如 员工 编号 较 多 或 经 常 添加 新 的 员工 编号 时 ,使 用 该 语句 来 查找 较为 麻烦 。 后 面 会 用 其 他 方法 来 实现 更 灵活 的 查找 。 


步骤 05 输入 员工 编号 “010001”。 返 回 Excel 视 图 ， 在 “员工 工资 表 ” 工 作 表 的 单元 格 A3 中 输入 “010001”， 如 下 图 所 示 。 


员工 编号 。 “员工 姓名 ”基本 工资 


步骤 06 自动 调用 “关联 10” 过 程 。 按 Enter 键 ， 即 可 自动 调用 “关联 10” 过 程 。 此 时 在 单元 格 B3 和 13 中 会 自动 出 现 该 员工 的 姓名 和 工资 卡号 ， 如 下 图 所 示 。 


步骤 07 输入 员工 编号 “010100”。 若 输入 “关联 10” 过 程 代码 中 不 存在 的 员工 编号 ， 如 在 单元 格 A5 中 输入 “010100”， 如 下 图 所 示 。 


工资 卡号 


566789732 
566789733 


步骤 08 ”提示 员工 不 人 存在。 输入 完毕 后 按 Enter 键 ， 将 会 弹出 提示 框 ， 提 示 用 户 不 存在 该 员工 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


566789732 


566789733 


步骤 09 ”编写 在 激活 Sheet3 工 作 表 时 自动 创建 表格 的 代码 。 在 “工程 ”窗口 中 双击 Sheet3 选 项 ， 在 打开 的 “Sheet3 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 。 该 代码 段 用 于 当 激 活 Sheet3 工 作 表 时 
调用 automatic10 过 程 。 


Porksheet vv Porksheet vv | |hctivate 


| "自动 创建 员工 工资 表 标题 和 项 目 字 段 ， 并 设 站 其 格式 
Private Sub WYorksheet te 


automatlicl 
End Sub 


步骤 10 ”修改 代码 。 打 开 “ 模 块 2 (代码 ) ”窗口 ， 将 代码 段 中 的 “Worksheets (2) ”更 改 为 “Activesheet” ， 如 下 图 所 示 。 即 将 指定 的 第 2 个 工作 表 改 为 当前 工作 表 ， 并 将 特定 的 字符 串 值 写 入 当 
前 工作 表 及 设置 其 格式 。 


' 自动 创建 员工 工 筑 表 标 题 和 项 目 字 上 段 
sub automaticl O 
全 人 表格 标题 和 项 目 字段 
Activesheet, Cells (1 ) 
ActiveSsheet. Cells (2, 


篇 殷殷 


半 访 各 将 采 尖 000 


本 H 至 H 让 活 哮 HH 


入 入 “对 


Activesheet.Cel1s(2， 
hctiveSheet. Cells (2, 
ActiveSheet. Cells (2, 
ActiveSheet. Cells (2, 
hictiveSheet. Cells (2, 
ActiveSheet. Cells (2, 
Activesheet. Cells (2, 
Activesheet. Cells (2, 


名 多 


号 


dy 


[i 


澡 筷 = 号 
蕊 


J 


步骤 11 编写 调用 “关联 2()” 过 程 的 代码 。 在 “工程 ”窗口 中 双击 Sheet3 选 项 ， 在 打开 的 “Sheet3 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 并 保存 。 该 代码 段 用 于 在 修改 第 3 行 或 第 3 行 以 上 的 A 列 单 
元 格 的 内 容 时 自动 调用 “关联 20” 过 程 。 


CI a 
' 目 动 创建 员工 工 换 表 标 题 和 项 目 字 段 ， 并 翅 站 其 格式 网 
Private Sub Worksheet ActivateO 
automaticl 
End ub 
顽 履 点 别 中 第 3 行 或 第 3 行 以 上 的 妆 据 时 坝 用 翅 过 程 
a Sub Worksheet lanee (uval Target As Range) 


It Target.Column = 1 And Target.row >»= 3 Mnd 
Target.Count = 1 Then 
天 联 2 Target. Yalue, Target.row 
End I+i 
End Sub 


步骤 12 编写 “关联 2()” 过 程 的 代码 。 在 “工程 ”窗口 中 插入 “模块 4”， 在 打开 的 “模块 4 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 。 它 与 “关联 1()” 过 程 的 代码 相似 ， 主 要 用 于 判断 单元 格 中 是 否 
写 入 了 内 容 ， 再 定义 name、Account 变 量 的 类 型 并 赋予 初始 值 。 


' 查找 对 应 员工 姓名 及 工资 卡号 ， EE 0 类似 
sub 关联 2 (num As String, row As Integer) 
狂 取 mum 傅 类 
num = hctiveSheet. Cells (row, 1) 
刘 断 和 定理 与 人 由 罕 
um = EI 


End It 

" 声明 nane, Account 变量 分 别 用 于 写 入 工作 表 
Din name As Strine, Account hs Strine 
name = 
hbccount = 


而 而 


步骤 13 ”编写 调用 查找 姓名 和 工资 卡号 函数 的 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 用 于 调用 searchname(0 和 searchAccount() 函 数 ， 并 判断 浮 数 的 返回 值 是 否 
为 空 值 。 如 果 为 空 值 ， 弹 出 警告 对 话 框 ,提示 用 户 不 存在 该 员工 编号 ， 并 调用 简易 交互 输入 过 程 。 


(通用 ) ~ | | 关联 2 

' 调用 searchnane 0 和 searchhccount 〇 国 数 

name = searchnane (num) 

Account = searchhccount (num ) 

"判断 定 否 枉 找 到 说 员 J 工 的 姓名 和 并 资 卡号 

If name =“” Or Account = “ 
MsgBox, 申 不 李 作品 虹 工 编号 对 让 的 吕 工 姓 名 ” _ 

“或 工资 卡号 ， 请 重新 输入 ”) 
Yorksheets tl), Activate 
Dim rowHNum As Integer 
rowlium = 3 : : : 
Do While Not (IsEmpty (Cells (rowhNun, 1). Value)) 
rowNum = rowNum + 1 


Loo 
模块 . 交互 输入 (rowNum) 


步骤 14 编写 将 数据 写 入 工作 表 中 对 应 单元 格 的 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 是 接续 上 一 步骤 的 代码 ， 是 当 searchname(0 和 searchAccount() 函 数 的 返 
回 值 不 为 空 时 ， 将 name、Account 变 量 的 值 写 入 当前 工作 表 对 应 的 单元 格 中 。 


关联 2 


,将 找到 的 员工 姓名 瑟 入 相应 中 
Activesheet. Cells (row, 2).Yalue = nane 
' 将 找到 的 员工 工资 卡号 写 入 相应 的 单元 格 中 
hctiveSheet. Cells (row, %.Value = Account 
End I+t 
End sub 


知识 链接 “Do While...Loop 语 句 的 用 法 
该 语句 用 于 在 不 确定 循环 次 数 的 情况 下 ， 重 复 执 行 一 组 语句 。 当 While 后 的 条 件 为 True 时 ， 执 行 Do While…Loop 间 的 语句 ， 反 之 就 跳出 循环 。 


步骤 15 ”编写 定义 searchname(0 函 数 的 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 代码 段 用 于 定义 table 变 量 为 工作 表 类 型 ， 然 后 将 当前 工作 簿 中 的 “员工 档案 ”工作 表 赋 
值 给 该 变量 ， 再 获取 “员工 档案 ”工作 表 的 行 数 。 


-一 
正义 在 员工 档案 工作 表 中 查找 员工 姓名 的 孙 数 
Function searchname (num As Strine) AS Strineg 
On Error Golo mse 
Dim table hs Worksheet 
Sot 时 9 ActiveWorkbook. Worksheets ("员工 档案 ”) 
员工 档案 工作 表 的 行 
pe ot hs IDntegeTr 
rowNun = table.Cells(3, 1).CurrentRegion. 
Rows. Count 


步骤 16 编写 查找 指定 员工 编号 对 应 的 员工 姓名 的 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 它 使 用 For 语 句 从 table 变 量 指定 的 工作 表 的 第 3 行 开始 逐 行 查找 ， 直 到 找到 第 1 
个 符合 条 件 的 员工 编号 ， 再 将 对 应 的 员工 姓名 作为 searchname() 国 数 的 返回 值 。 


(通用 ) | 
' 在 员工 档案 工作 表 中 查找 


Dinmn row is Integer 

For row = 3 To rowlumnm : 
”对 负 工 编 亏 进 行 处 理 ， 防 止 意外 加 入 空格 
Dim al As strine 
ee or pr pe ele 1) .Value 


? 妇 采 员 王 灶 这 悄 谷 ， 网 返回 员工 的 姓名 


It alnm = nun Then 
searchname = CStritable.Cells (row, 2)) 
Exit Funct1on 
End I+t 
Next row 


重点 语法 与 代码 剖析 : For...Next 语 句 的 用 法 
大 语法 格式 
For counter=start To end[Step step] 
[statements] 
[Exit Fo] 
[statements] 
Next[counted 
大 功能 说 明 


For…Next 语 句 用 于 以 指定 次 数 重复 执行 一 组 语句 。 其 中 ，countet 是 必需 参数 ， 用 作 循 环 计数 器 的 数值 变量 ， 这 个 变量 不 能 是 Boolean 或 数组 元 素 ; statt 是 必需 参数 ， 是 countet 的 初 值 ; end 是 必需 参数 ， 是 
countet 的 终 值 ; step 是 可 选 参 数 ， 是 counhtet 的 步 长 ， 如 果 没 有 指定 ， 则 step 的 默认 值 为 1; statements 是 可 选 参 数 ， 是 放 在 For 和 Next 之 间 的 一 条 或 多 条 语句 ， 它 们 将 被 执行 指定 的 次 数 。 注 意 : 如 果 省 略 Next 语 
名 中 的 countetr， 就 像 countet 存 在 时 一 样 执行 。 但 如 果 Next 语 句 在 其 对 应 的 For 语 句 之 前 出 现 ， 则 会 产生 错误 。 


步骤 17 ”编写 searchname(0 函 数 返 回 空 值 的 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 由 于 本 段 代 码 需 要 访问 特定 工作 表 ， 如 果 这 个 工作 表 不 存在 ， 则 会 弹出 对 应 的 提示 信 


(前 用 ) 


“否则 巡 回 宇 值 
searchname = 
Exit Functlon _ 
' 如 果 没 有 员 LN 显示 错 关 提 
msg: NsgBox ("不 存在 训 于 入 要 汪 


End Funct1on 


步骤 18 编写 searchAccount() 水 数 的 前 半 部 分 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 它 是 searchAccount0 遂 数 的 前 半 部 分 代码 ， 与 searchname0 遂 数 的 代码 类 似 。 


二 用 ) - 
' 定义 在 员工 档案 工作 表 中 查找 员工 工资 卡 亏 的 国 数 一 | 
Function searchiccount (nun As Strine) AS Strine | 
On Error GoTo mse 
Dim table As Worksheet | | 
Set table = ActiveWorkbook.Worksheets( 内 工 档 案 ”) 
' 获取 员工 档案 工作 表 的 行 数 
Dim rowNum As Integer 
rowNunmn = table.Cells(3, 1).CurrentReeion 
. Rows. Count | 
' 在 员工 档案 工作 表 中 查找 


Dim row hs Integer 


步骤 19 编写 searchAccount() 浮 数 的 后 半 部 分 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 用 于 根据 员工 编号 返回 员工 工资 卡号 。 


二 用 ) v] [Serbheoomt 
For row = -| 
好 员 工 编 号 进香 处 理 ， 防止 意外 加 六 宪 格 
Dim alm As Strine 
ain 一 A 1) .Value 
al Mm = Trinm 
? 胡 宁 品 荆 可 起 相生 ， 则 人 返回 员工 工资 卡 写 
It am = num Then 
searchaccount = CStrltable.Cells (row, 3)) 
Exit Function 
End I+ 
Next row 
' 理 则 返回 空 值 
searchiccount = 
Exit Function 
"如果 没有 员工 档案 工作 表 上 


Msg: MsgBox (“不 和 歪 
End Function 


< 加 


知识 链接 ”Count 方 法 


该 方法 用 于 统计 指定 对 象 的 个 数 ， 该 对 象 可 为 Rows、Columns、Chatts、Shapes、Wotksheets 等 。 


2.2.3 ”检测 代码 运行 结果 


完成 员工 编号 与 姓名 、 工 资 卡号 关联 过 程 代码 的 编写 后 ， 可 以 通过 运行 程序 来 检测 代码 是 否 正确 。 具 体操 作 如 下 。 


步骤 01 ”在 工作 表 中 输入 员工 编号 。 继 续 上 一 小 节 的 操作 ， 完 成 “关联 20” 遂 数 的 编写 后 ， 保 存 该 代码 并 返回 Excel 工 作 表 。 在 Sheet3 工 作 表 的 单元 格 A3 中 输入 “010001”， 如 下 图 所 示 。 


步骤 02 ”确认 输入 。 输 入 完毕 后 按 Enter 键 ， 可 看 到 在 单元 格 B3 和 13 中 自动 写 入 了 该 员工 编号 对 应 的 员工 姓名 和 工资 卡号 ， 如 下 图 所 示 。 为 了 方便 查看 ， 此 处 将 C ~ H 列 进行 了 隐藏 。 


步骤 04 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 不 存在 该 员工 编号 对 应 的 员工 姓名 或 工资 卡号 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


ses 


0 1 0 0 0 人 


步骤 06 ”输入 员工 姓名 。 弹 出 第 2 个 对 话 框 ， 提 示 输 入 员工 姓名 ， 在 文本 框 中 输入 “ 张 欣 ”， 单 击 “ 确 定 ”按钮 ， 如 下 右 图 所 示 。 


步骤 08 输入 所 属 部 门 。 弹 出 第 4 个 对 话 框 ,提示 输入 所 属 部 门 ， 在 文本 框 中 输入 “销售 部 ”， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


566789732 


i Microsoft Exce| 


on 挛 


步骤 10 ”输入 员工 工龄 。 弹 出 第 6 个 对 话 框 ， 提 示 输 入 员工 工龄 ， 在 文本 框 中 输入 “3”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


步骤 12 ”输入 工资 卡号 。 弹 出 第 8 个 对 话 框 ， 提 示 输 入 员工 工资 卡号 ， 在 文本 框 中 输入 “566789780”， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 
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本 节 将 针对 一 个 已 输入 了 某 月 份 员工 工资 记录 的 工作 表 ， 编 写 VBA 程 序 自动 计算 和 显示 员工 薪资 的 排名 ， 并 添加 按钮 控件 调用 编写 的 VBA 程 序 ， 以 方便 用 户 使 用 。 


扫 码 看 视频 


ea 


Le : 实例 文件 \ 第 2 章 \ 原 始 文件 \ 自 动 计算 员工 薪资 名 次 .xlsm 


实例 文件 \ 第 2 章 \ 最 终 文件 \ 自 动 计算 员工 薪资 名 次 .xlsm 


本 小 节 将 编写 实现 如 下 功能 的 VBA 代 码 : 计算 用 户 选中 的 单元 格 区 域 中 员工 薪资 的 排名 ， 表 将 名 次 写 入 J 列 中 ， 并 以 对 话 框 的 形式 显示 前 10 位 的 员工 姓名 及 相应 工资 。 


#01 ” 单 击 Visual Basic 按 钮 。 打 开 原 始 文 件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 。 


一 一 
一 过 


加 Excel COM 加 载 项 


步骤 02 ”插入 “模块 1”。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 的 空白 处 右 击 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 ”命令 ， 如 下 图 所 示 。 


日 加 | 男 | 
HE- Solver Ns LAE) 
由 - 上 WAFrojeet -于 
EE 蜗 YBAPFroject (自动 计算 员 
日 - 神 王 Et Se es 


Shaat t3 i 3) 理 看 对 象 必 
| Tha sWorkbook EE 四 


VBAProject 尾 性 ({E)... 
插入 (N) 
导出 葡 件 (日 .- 

称 了 M Sheet1(R)... 


步骤 03 ” 写 入 名 次 字段 。 在 “模块 1 (代码 ) ”窗口 中 输入 如 下 左 图 所 示 的 代码 段 ， 它 与 2.2 节 中 自动 创建 表格 项 目 字段 的 代码 类 似 。 


(商用) 
sub 计算 名 /办 站 
' 在 单元 格 J2 中 写 入 名 次 字段 z 
ActiveSheet. Cells (2, 10) =“ 各 并 ” 
“ 慢 折 单元 格 J2 的 字 司 为 黑 坷 
ActiyeSheet， Cellsf2，10) .Font,Nane = “黑体 ” 
' 设置 单元 格 J2 的 字形 为 常规 | 
ActiyeSheet， Cells(2，10 .Font.Bolad = False 
' 设置 单元 格 T2 的 字体 颜色 | z 
Ee Cells(2, 10).Font.Color = RGB(153, 0, 153) 
单元 格 J2 的 字号 为 12 
Actiyebeet. Cells(2, 10).Font.Size = 12 
" 设 疼 早 元 格 J2 的 新 色 
hctiveSheet. Cells(2, 10).Interior.Color = RGB(153, 204, 255) 
设置 第 2 行 的 行 高 为 20 像 素 
ActiveSheet., Rows (2). RowHeight = 20 
' 设置 ] 列 的 列 宽 为 12 像 素 : 
ActiveSheet. Co lunnst J ).CcolunnWidth = 12 
全 加 重症 和 7 在下 入 向 居中 汰 并 
ActiveSheet. Cells(2, 10).HorizontalAliermment = xlCenter 
' 设 首 单元 格 J2 在 垂直 方向 居中 对 行 


hctiveSsheet. Cells (2, 10).VerticalAliennent = xlCenter 


步骤 04 调用 “模块 2” 中 的 “自动 排序 0)” 过 程 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 ， 该 代码 用 来 调用 “模块 2” 中 的 “自动 排序 0)” 过 程 。 


[mm 7 
A 过 程 


知识 链接 _ HorizontalAlignment 和 VerticalAlignment 属 性 
HorizontalAlignment 和 VerticalAlignment 属 性 分 别 用 于 设置 单元 格 的 水 平和 垂直 对 齐 方式 ， 可 将 指定 单元 格 的 对 齐 方式 设置 为 居中 对 齐 、 左 对 齐 或 右 对 齐 、 顶 对 齐 或 底 对 齐 等 。 


步骤 05 ”插入 并 编写 自动 排序 代码 。 在 VBE 编 程 环境 中 ， 单 击 菜单 栏 中 的 “插入 ”菜单 ， 在 展开 的 列表 中 单 击 “ 模 块 ”命令 ， 如 右 图 所 示 。 此 时 会 打开 “模块 2 (代码 ) ”窗口 ， 然 后 在 该 窗口 中 输入 如 
下 的 自动 排序 代码 。 


-是 VBAProject (FUHNCRE 
了 嫩 VYBAProject 【自动 计生 
日" Microsott Excel 对 象 


代码 剖析 : “模块 2” 中 的 自动 排序 代码 


行 号 代码 


1 Sub 目 动 排序 ( 


2 Dim myrange As Range ' 暂 存 所 选 的 区 域 
3 Set myrange = Selection 
4 Dim count As Integer ' 获得 所 选区 域 中 单元 格 的 个 数 
5S count = Myrange.count 
6 Dim index() As Integer ' 声 明 用 于 存储 每 个 单元 格 排 位 的 数组 
区 ReDIim index(count) 
8 Dim i As Integer 声明 循环 变量 并 初始 化 
9 | 
10 For Each one In myrange 
11 Indqex = Application.WorksheetFunction.Rank(one.Value, myrange,) 
及 i=i+1 
13 Next one 
14 For i = 3 To count + 2 ' 写 入 排序 名 次 
15 ActiveSheet.Cells(i, 10) = Index 人 - 2) 
16 Next | 
I Dim list As String ' 显 示 前 10 名 的 员工 工资 额 
ks, FO es le 
19 EC Hilo oount 
2 If Cells( + 2, 10) = i Then 
和 21 list = list & CStr(Cells(] + 2, 2) & ":" & CStr(myrange!()).Value) & Chr(10) 
加 Eng lt 
23 Next | 
24 Next | 
25 MsgBox" 所 选区 域 的 排序 结果 " & Chr(10) & (list) 
26 End Sub 
代码 详解 


1: 开始 语句 ， 表 明 过 程 的 名 称 。 

2~3: 暂 存 所 选 的 区 域 ， 首 先 将 myrange 定 义 为 单元 格 区 域 类 型 ， 再 用 Set 语 名 将 Selection 

(代表 选 定 的 单元 格 区 域 ) 赋值 给 变量 mytange。 其 中 ，Selection 是 为 Application 对 象 返回 在 活动 窗口 中 选 定 的 对 象 。 其 语法 格式 为 “表达 式 .Selection” 。 

4 一 5: 获得 所 选区 域 中 单元 格 的 个 数 。 其 中 使 用 Range.Count 属 性 将 选 定单 元 格 区 域 的 单元 格 个 数 赋值 给 变量 count。 

6~7: 声明 用 于 存储 每 个 单元 格 排 位 的 数组 。 其 中 使 用 ReDim 语 名 来 定义 或 重 定 义 原 来 已 经 用 带 空 圆 括号 (没有 维 数 下 标 ) 的 Private、Public 或 Dim 语 和 句 声明 过 的 动态 数组 的 大 小 。 
8 一 13: 利用 循环 获取 选 定 单元 格 区 域 中 每 个 单元 格 的 排序 名 次 ， 并 存储 于 前 面 定义 的 存储 每 个 单元 格 排 位 的 数组 中 。 其 中 使 用 For Each…Next 语 多 进行 循环 。 其 语法 格式 为 : 


For Each element In group 


[statements] 
[Exit Fod] 
[statements] 
Next[element] 
14~16: 写 入 排序 名 次 。 利 用 循环 将 获取 的 单元 格 排 序 名 次 写 入 相应 的 单元 格 中 。 
17~24: 显示 前 10 名 的 员工 工资 额 。 本 上 段 代码 采用 双重 循环 ， 根 据 写 入 的 排序 名 次 获取 薪资 排 在 前 10 名 的 员工 姓名 及 工资 额 。 
25: 利用 对 话 框 显示 排序 后 前 10 名 员工 的 姓名 及 工资 额 。 


26: 结束 语句 ， 表 示 结 束 代码 的 编辑 。 


2.3.2 ”添加 殷 钮 控件 并 运行 代码 


编写 完 代码 后 ， 接 着 通过 添加 按钮 控件 来 调用 程序 ， 以 方便 用 户 的 使 用 ， 具 体操 作 如 下 。 


步骤 01 插入 按钮 控件 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 。 在 “开发 工具 ” 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 
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步骤 02 ”绘制 按钮 控件 。 选 择 按钮 控件 后 ， 将 鼠标 指针 移 至 工作 表 中 的 空白 位 置 并 拖 动 ， 绘 制 按钮 控件 ， 如 下 图 所 示 。 


J0071891734 
I607097395 
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JO0ro9r3r 
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步骤 04 ”设置 控件 格式 。 返 回 工作 表 ， 右 击 绘制 的 按钮 控件 ， 在 弹出 的 快捷 菜单 中 单 击 “设置 控件 格式 ”命令 ， 如 下 图 所 示 。 


站 | 
按钮 和 % 莫 切 中 
多 ”复制 (QO) 


步骤 05 ”设置 控件 的 字体 格式 。 弹 出 “设置 控件 格式 ”对 话 框 ,在 “字体 ”选项 卡 下 设置 “字体 ”为 “华文 宋体 ”、“ 字 形 ” 为 “加 粗 ”、“ 字 号 ”为 12 号 、“ 颜 色 ” 为 蓝 色 ， 如 下 图 所 示 。 设 置 完 成 
后 单 击 “确定 ”按钮 。 


步骤 06 更改 控 件 文本 。 返 回 工作 表 ， 双 击 按钮 控件 ， 在 其 中 输入 “自动 计算 名 次 ”， 然 后 单 击 工 作 表 中 的 任意 单元 格 ， 激 活该 按钮 ， 如 下 图 所 示 。 
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步骤 07 单 击 按钮 运行 代码 。 在 工作 表 中 选中 单元 格 区 域 H3: H22， 单 击 “ 自 动 计算 名 次 ”按钮 ， 如 下 图 所 示 。 
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步骤 08 ”查看 运行 结果 。 系 统 自动 执行 指定 的 宏 ， 在 J 列 中 添加 “名 次 ”字段 ， 并 写 入 薪资 的 名 次 ， 而 且 会 弹出 对 话 框 ， 显 示 前 10 名 的 排序 结果 ， 如 下 图 所 示 。 
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第 3 章 ”客户 信 息 管 理 系统 


公司 在 管理 客户 信息 时 常常 用 到 大 量 相同 格式 或 内 容 的 表格 ， 逐 个 复制 工作 表 的 工作 量 会 非常 大 。 在 本 章 中 将 使 用 Worksheet 对 象 的 Copy 方 法 及 Name 属 性 实现 工作 表 的 批量 复制 和 重 命名 ， 并 使 用 


VBA 程 序 提取 各 客户 信息 工作 表 中 的 数据 ， 最 后 还 介绍 了 如 何 使 用 VBA 程 序 自动 保护 多 个 工作 表 和 撤销 工作 表 的 保护 。 


3.1 ”批量 新 建 客 户 信 息 表 


公司 基本 情况 登记 表 ”， 每 张 表 都 以 对 应 公司 的 名 称 来 命名 ， 且 每 张 工作 表 的 内 容 和 样式 都 与 “ 样 表 ”相同 。 如 果 手动 完成 这 项 任务 ， 工 作 量 会 比较 大 ， 这 里 利用 VBA 来 实 


在 本 节 中 将 新 建 9 张 相同 的 “ 
现 批量 新 建 工作 表 和 批量 重 命名 工作 表 的 操作 ， 可 以 提高 工作 效率 ， 减 少 工作 量 。 


PE AS 二 LT 


要 码 看 视频 


he 


[一 一 。 F: 实例 文件 \ 第 3 章 \ 原 始 文 件 \ 批 量 新 建 客户 信息 表 .xlsm 


:实例 文件 \ 第 3 章 \ 最 终 文 件 \ 批 量 新 建 客户 信息 表 .xlsm 


本 小 节 通 过 编写 VBA 代 码 ， 将 事先 制作 好 的 “ 样 表 ” 工 作 表 批量 复制 若干 份 ， 复 制 的 数量 由 用 户 通过 对 话 框 输入 ， 以 提高 代码 功能 的 灵活 性 。 


| 单 击 Visual Basic 按 钮 。 打 开 原 始 文件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 人 代码” 组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 。 


步骤 02 ”插入 “模块 1”。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (批量 新 建 客户 信息 表 .xlsm) ” ， 在 弹出 的 快捷 菜单 中 单 击 “ 揪 入 > 模块 ”命令 ， 如 下 图 所 示 。 


自 - VBAProyect (批量 新 建 ? 国 
口 : nh crosoft Exce] 对 象 
Ee 对 Sheetl ( 样 表 ) 


Thi sy orkboolk 


于 出 区 件 (E)... 
移 阶 (R) 


步骤 03 ”编写 输入 要 创建 的 工作 表 个 数 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 输入 如 下 左 图 所 示 的 代码 段 。 该 段 代 码 主要 用 于 定义 存储 工作 表 个 数 的 变量 及 获取 要 创建 的 工作 表 的 个 数 。 其 中 ， 使 用 
InputBox(0 函 数 获 取 用 户 输入 的 数字 。 


sub 新 建 客户 信息 表 () 

仿 问 名 为 梓 表 的 工作 表 
On Error GoTo notable 

Din aln hs Worksheet 

Set aim = Worksheets(* 样 表 ”) 

关闭 Excel 四 二 二 汪 办 屏幕 剧 新 功能 


pr en poe DisplayAlerts = False 


pplication. ScreenU? ns 一 “False 


声明 存放 工作 表 个 政和 


" 锚 和 半身 于 和 和 的 个头 
= InputBox ("请 输入 需要 创建 工作 表 的 个 数 ) 


Dam = CInt num) 


步骤 04 ”编写 创建 工作 表 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 。 该 段 代 码 的 主要 功能 是 循环 创建 指定 数量 的 工作 表 ， 循 环 的 次 数 表示 创 建 的 工作 表 的 个 数 ， 由 num 变 
量 控制 。 创 建 完毕 后 删除 “ 样 表 ”工作 表 。 


新 建 客 户 信息 表 


' 循环 num; 关 
Dim 1 is Integer 
For 1 = 1 To num 
" 复制 样 表 至 工作 湾 的 最 前 面 
aim. Copy before:=Worksheets (1) 
Next 1 : 
' 恢复 Excel 的 自动 提示 和 屏幕 刷新 功 8E 


hppllicatlion.DisplayAlerts = True 

Application, SscreenUJpdating = True : 

JsgEox “ 批 重 新 建 完 成 ”各 Chr (10) 下“ 共 新 建 ”让 
CStr (nu 让 “小 工作 表 ” 

alinm. Delete 

Exit Sub 


知识 链接 ”CInt() 函 数 的 用 法 
在 步 又 03 中 获取 用 户 输入 的 创建 工作 表 个 数 时 ， 使 用 Clnt0 函 数 将 输入 的 数据 强制 转换 为 整 型 ， 返 回 值 的 范围 为 -32768 一 32767， 小 数 部 分 四 含 五 入 。 如 果 输 入 的 值 为 汉字 或 英文 字母 ， 返 回 值 为 0。 
重点 语法 与 代码 剖析 : Worksheet.Copy 方 法 的 用 法 
大 语法 格式 
表达 式 .Copy (Before，After) 
太 功 能 说 明 


Wotksheet 对 象 的 Copy 方 法 用 于 将 指定 工作 表 复 制 到 当前 工作 簿 的 另 一 位 置 。 其 中 ，Befotre 是 可 选 参 数 ， 用 于 指定 将 复制 后 的 工作 表 置 于 此 工作 表 之 前 ; 同 理 ，After 用 于 指定 将 复制 后 的 工作 表 置 于 此 工 
作 表 之 后 。 需 要 注意 的 是 ，Before 和 After 参数 不 能 同时 指定 。 


重点 语法 与 代码 剖析 : Worksheet.Delete 方 法 的 用 法 

大 语法 格式 

表达 式 .Delete 

大 功能 说 明 

Wotksheet 对 象 的 Delete 方 法 用 于 删除 指定 工作 表 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Wotksheet 对 象 的 变量 。 


步骤 05 编写 “不 存在 样 表 工作 表 时 的 提示 信息 ”代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 并 保存 ， 该 代码 段 用 于 以 对 话 框 形式 显示 错误 提示 信息 。 


La 
TE TT 


notable: 


MsgBox “没有 找到 名 为 梓 表 的 工作 表 ! “ 


End Sub 


步骤 06 执行 安 。 返 回 Excel 视 图 ， 按 Alt+F8 组 合 键 ， 打开“ 宏 ” 对 话 框 。 在 “ 宏 名 ”列表 框 中 单 击 “ 新 建 客 户 信 息 表 ” 选 项 ， 单 击 “ 执 行 ” 按 钮 ， 如 下 图 所 示 。 


步骤 07 输入 要 创建 的 工作 表 的 个 数 。 系 统 会 自动 弹出 对 话 框 ， 提 示 输 入 需要 创建 的 工作 表 的 个 数 ， 在 文本 框 中 输入 “9”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


Microsoft Excel 


步骤 08 ”显示 创建 结果 。 此 时 系统 将 按 输 入 的 工作 表 个 数 复制 样 表 ， 复 制 完毕 后 将 弹出 提示 框 ， 提 示 用 户 批 量 新 建 完 成 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


公司 基本 情况 登记 表 


.Microsoft Excel XX 


证 


步骤 09 ”确认 删除 样 表 。 接 着 执行 删除 样 表 的 代码 ， 系 统 会 弹出 提示 框 ， 询 问 用 户 是 否 永久 删除 此 工作 表 ， 单 击 “ 删 除 ”按钮 即 可 ， 如 下 图 所 示 。 


C D 
公司 基本 情况 登记 表 
公司 名 称 | | 英文 名 称 | | 成 立时 间 | 
RA 
联系 电话 Microsoft Excel 
公司 地 址 


步骤 10 ”查看 最 终 效 果 。 返 回 工 作 簿 ,可 看 到 每 个 工作 表 中 的 内 容 、 格 式 和 样 表 相同 ， 并 且 已 删除 “ 样 表 ”工作 表 ， 如 下 图 所 示 。 


万 


公司 基本 人 情况 登记 表 
RS [kxapl| | | 


样机 (10) | 样 夫 (9) | 样 要 (9 | 样机 (7) | 样 唐人 | 样 要 (5) 


3.1.2 ”编写 批量 重 命名 工作 表 的 代码 


批量 新 建 客 户 信 息 表 后 ， 接 下 来 需要 为 每 个 工作 表 重 命名 。 本 小 节 将 通过 编写 VBA 代 码 ， 对 每 个 工作 表 按 照 指定 的 公司 名 称 列表 进行 批量 重 命名 。 


步骤 01 输入 客户 详细 信息 。 继 续 上 一 小 节 的 操作 ， 在 每 个 工作 表 中 输入 各 客户 公司 的 具体 信息 ， 如 右 图 所 示 。 


公司 基本 情况 登记 表 
| 华 洛 网 络 


三 睛 
-FP 


1 一 避 5 后 相亲 不 本 门 十 白 品 立 5 白水 二 汪汪 


北京 市 西部 林 责 路 231 去 


人 尼 党 网 络 公 司 常 年 务 同 机 光 、 字 榨 、 人 站 事业 里 位 、 网 吧 芒 个 术 高 信 收 网 旧 电脑 全 


式 、 诗 记 本 】,， 并 可 根据 谊 户 壳 求 配 苗 新 电脑 。 从 公司 开业 之 日 起 ， 自 推 “ 以 旧 损 新 ” 
小 务 ， 高 新 配 盖 ， 低廉 信 枯 ， 品 遍 怀 证 。 同 时， 我 公司 还 经 寞 二 于 诗 记 本 电脑 ,让 您 世 
得 更 少 ， 用 每 放心 。 


步骤 02 编写 检查 工作 表 数 目的 代码 。 进 入 VBE 编 程 环境 ， 插 入 “模块 2”， 在 打开 的 窗口 中 输入 如 下 左 图 所 示 的 代码 。 它 主要 使 用 Range 对 象 的 Count 属 性 统计 当前 区 域 的 行 数 ， 并 用 获得 的 数值 与 工 
作 表 的 个 数 进行 比较 。 


上 放生 证 
阴 革 国共 的 拭 作 表 吉 称 
Dim tbName As String 
tbName =“ 样 表 1” 
' 错 计 处理 


On Error 


Golo msge 


; 访问 该 名 称 的 工作 表 


Dim aln As Worksheet 
Set aim = eo PN! 
" 获取 工作 表 名 入 


ey 

I Worksheets. Count 《> nun + 1 Then 
A “并 退出 程序 
MsgBox “工作 表 数 握 新 名 称 数 不 符 。 


Exit 
End I+t 


步骤 03 ”编写 重 命名 工作 表 的 代码 。 在 “模块 2 (代码 )“ 


重 命名 为 “ 样 表 1” 工 作 表 中 指定 的 名 称 。 


和 on Rows. Count 


Sub 


窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 。 该 代码 的 功能 是 循环 访问 每 个 工作 表 ， 再 通过 对 Worksheet 对 象 的 Name 属 性 重新 赋值 ， 将 工作 表 


' 关闭 Excel = 


Appl1cat] 


1 on. ne False 


声明 并 初始 化 循环 变 


Dim n As 


lntegser 


n=1 
;循环 操作 工作 簿 中 的 所 有 工作 表 


For Each 


one In Worksheets 


用 于 匣 名 的 工作 表 除 外 


It 0 


End 


Next one 


知识 链接 ”On Error GoTo line 语 句 的 用 法 


ne. Name <» tbName Then 
one. Name = CSstriain.Cells(n, 1).vYalue) 
n=n+l 


11 


On Error GoTo line 语 句 用 于 启用 错误 处 理 程序 。line 为 必需 参数 ， 可 以 是 任何 行 标签 或 行 号 。 如 果 代 码 在 运行 时 发 生 一 个 错误 ， 则 跳 至 由 line 参 数 指 定 的 行 处 开始 执行 ， 从 而 激活 错误 处 理 程序 。 指 定 的 
行 必 须 和 On Error GoTo 语 和 句 在 同一 个 过 程 代码 中 。 


重点 语法 与 代码 剖析 : Range.CurrentRegion 属 性 的 用 法 
大 语法 格式 

表达 式 .CurrentRegion 

大功 能 说 明 


该 属性 是 只 读 属性 ， 用 于 返回 一 个 Range 对 象 ， 该 对 象 表示 当前 区 域 。 当 前 区 域 是 以 空 行 与 空 列 的 组 合 为 边界 的 区 域 。 该 属性 对 于 许多 自动 展开 选择 以 包括 整个 当前 区 域 的 操作 很 有 用 。 例 如 ， 与 
Rows.Count 属 性 结合 使 用 ， 可 以 统计 当前 区 域 中 的 行 数 。 注 意 : 该 属性 不 能 用 于 被 保护 的 工作 表 。 


高 手 点 拨 : Worksheet 对 象 的 Name 属 性 的 用 途 
要 重 命 名 工作 表 ， 就 需要 访问 Wotksheet 对 象 的 Name 属 性 。 在 步骤 03 的 代码 段 中 ，For Each…Next 语 名 中 的 变量 one 是 一 个 Wotksheet 对 象 ，one.Name 就 用 于 获取 某 个 工作 表 的 名 称 。 


步骤 04 编写 提示 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 ， 该 段 代码 使 用 MsgBox( 函 数 显示 重 命名 成 功 或 不 成 功 的 提示 ， 并 恢复 Excel 自 动 屏幕 刷新 。 在 重 命名 成 功 后 ， 使 用 
Exit sub 语句 退出 程序 . 


-| | 下 宣王 命名 
恢复 Fxcel 目 动 屏 草书 新 总 


plicatlon. 1 ScreenUpdating = True 
A 第 元 J 
Nsgbox "批量 命名 完毕 ” 


Exit sub 
当 用 于 匣 名 的 工作 表 不 存在 时 的 襟 疼 处 理 


MsgBox “没有 找到 名 为 ”& tbWanme &“ 的 工作 表 ! * 
End Sub 


msge: 


步骤 05 ”执行 批量 重 命名 宏 。 返 回 Excel 视 图 ， 按 Alt+F8 组 合 键 , 打开 “ 宏 ” 对 话 框 。 在 “ 宏 名 ”列表 框 中 单 击 “ 批 量 重 命名 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


步骤 06 ”执行 宏 的 效果 。 由 于 此 时 还 未 建立 “ 样 表 1” 工 作 表 ， 将 弹出 错误 提示 框 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


上 D 
公司 基本 情况 登记 表 
公司 名 称 融 江 科技 英文 名 称 |rongjing network company 


商 责 人 | 都 以 六 
“| 联系 电话 1010-8259 相 十 本 本 hcrosolft Enca x 


| 公司 地 址 | 北京 王府 井 265 号 
没有 找到 名 为 样 大 1 的 工作 表 ! 


融 江 科技 有 限 公 EF \ ] 沉 金 达到 200 万 ， 其 主要 经 营 范 围 | 
公司 简介 | 电脑 硬件 ， 如 CPU、 内 确 下 | 冉 件 ， 如 键盘 、 饼 标 、 耳 机 等 ， 同 
经 营 电 脑 软件 ， 如 操 人 有 


步骤 07 新 建 工作 表 。 右 击 “ 样 表 (10) ”标签 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 ”命令 ， 如 下 图 所 示 。 


公司 基本 情况 登记 表 
Lar 英 允 名 种 |rongjing network conpany 成 立时 间 | 
no 删除 (D) )10-8259# 相 站 
北京 王府 内 二 名 ® 


品 埋 看 代码 (V) 


i 保护 工作 表 (P).. ee rng. a 
谢 1 2 竺 起 t+ 条. 剖 i 1 上 及 上 用 0 "i 
经 营 电脑 看 。 了。 “中 ”应 用 软件 等 。 


L 
= 
Ws an 


有 三 TS | 


选 定 全 部 工作 表 (8) 
样 表 (10) | 样 表 回 | 样 要 (加 | 样 表 (7) | 样 表 人 各 | 样 表 (5) | 样 表 ( 几 


曲 图 加 - t 


步骤 08 选择 插入 类 型 。 弹 出 “插入 ”对 话 框 ， 在 “常用 ”选项 卡 下 单 击 “ 工 作 表 ”选项 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


MS Exoel 股票 代号 出 
5.0 对 话 框 ,x|tm 


一 

xx 

日 房 见 解 ， 现金 流 分 析 . 
Excel(2). db EucelL xltx ”图 的 流程 xitm Xltm 


口 ffice,com 模板 (D) 


步骤 09 输入 新 工作 表 的 内 容 。 将 插入 的 工作 表 重 命名 为 “ 样 表 1”， 按 照 其 他 工作 表 中 “公司 名 称 ”的 内 容 依 次 输入 9 个 工作 表 的 新 名 称 ， 如 下 图 所 示 。 


三 
融 江 科技 
志 阳 网 络 
驰 瑞 网 络 
益阳 科技 
瑞 宁 科技 
华海 网 络 
环宇 科技 
宏 雨 科技 
华 洛 网 络 


2 
3 
4 
9 
0 
了 
8 


步骤 10 ”批量 重 命名 。 按 Alt+F8 组 合 键 ， 打 开 “ 安 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 批 量 重 命名 ”选项 ， 单 击 “ 执 行 ” 按 钮 ， 如 下 图 所 示 。 


步骤 11 弹出 提示 框 。 系 统 自 动 执行 “批量 重 命名 ” 宏 ， 执行 完成 后 弹出 提示 框 ， 提 示 用 户 已 完成 批量 重 命名 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


旧 
融 江 科技 
志 阳 网 络 
息 瑞 网 络 
蔓 阳 科技 
瑞 宁 科技 
华海 网 络 
环宇 科技 
宏 雨 科技 
华 洛 网 络 


We 


EIS 
田 - 岂 Solver (SOLYER. ILAMN) 
由 - 嫩 YBAProject (FUNCEES. ILAN) 
日 -点 YBAProject ( 批 里 新 建 客户 信息 去 . xlss) 
中 -Ji crosoft Excel 对 象 
: 一 转 sheet10 【 志 阳 了 网 痛 ) 
… 围 ] Sheet1l 情 由 I 科技) 
一 转 ] Sheet2 ( 样 表 1) 
条 sheet3 (化 党 网 弟 ) 
~ 朋 | Sheetd4 【 宏 朋 科技 ) 
: sheet5 (环宇 科技 》 
-… 围 ] Sheeté 【华海 网 络 ) 


-Em yy 
图 | LL i 


3.2 ”自动 提取 客户 信息 


本 节 将 在 上 一 节 的 基础 上 ， 通 过 提取 客户 信息 表 的 信息 ， 制 作客 户 通信 录 。 在 实际 工作 中 ， 客 户 基本 信息 登记 表 的 数目 会 有 很 多 ， 逐 个 工作 表 进 行 查找 并 录入 ， 不 仅 工 作 效率 低 ， 还 可 能 出 现 录入 错 
误 、 重 复 等 情况 。 本 节 将 利用 VBA 代 码 从 登记 表 中 提取 有 价值 的 通信 信息 ， 如 客户 公司 的 名 称 、 负 责 人 、 联 系 电 话 和 公司 地 址 等 ， 然 后 自动 新 建 一 个 名 为 “客户 通信 录 ” 的 工作 表 ， 存 放 提 取出 的 信息 。 
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扫 码 看 视频 


*.. 


: 实例 文件 \ 第 3 章 \ 原 始 文件 \ 自 动 提取 客户 信息 .xlsm 


实例 文件 \ 第 3 章 \ 最 终 文件 \ 自 动 提取 客户 信息 .xlsm 


本 小 节 将 设计 一 个 VBA 用 户 窗 体 ， 为 用 户 提供 一 个 图 形 化 的 操作 界面 ， 用 户 在 这 个 界面 中 通过 简单 的 键盘 和 鼠标 操作 就 能 指定 要 提取 的 信息 项 目 ， 从 而 扩大 了 代码 功能 的 适用 范围 。 具 体操 作 如 下 。 


插入 用 户 窗 体 。 打 开 原 始 文件 ， 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (自动 提取 客户 信息 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 用 户 窗 体 ” 命 令 ， 如 下 图 所 
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步骤 03 ”选择 标签 控件 。 用 户 窗 体 中 一 般 都 需要 显示 相应 的 标题 等 说 明文 本 ， 这 可 以 利用 标签 控件 来 制作 。 单 击 工具 箱 中 的 “标签 ”按钮 Al， 将 鼠标 指针 移 至 窗 体 对 象 窗口 中 ， 按 住 鼠 标 左 键 拖 动 ， 绘 
制 标 签 控件 ， 如 下 左 图 所 示 。 
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步骤 04 _ 打开“ 属性” 窗口。 释放 鼠 标 即 可 完成 绘制 ， 右 击 绘制 的 标签 控件 ， 在 弹出 的 快捷 菜单 中 单 击 “ 属 性 ”命令 ， 如 下 右 图 所 示 。 


生成 组 (G) 


步骤 05 ”修改 标签 控件 的 名 称 。 打 开 “ 属 性 -标签 ”窗口 ， 将 “ (名 称 ) ”属性 更 改 为 “标签 ”， 将 Caption 属 性 更 改 为 “ 列 名 ”,， 单 击 Font 属 性 右 侧 的 对 话 框 按钮 ， 如 下 图 所 示 。 


技 字 母 序 按 分 类 序 


False 
Bo wHB000000F& 


1 一 tmbackStyleDpaque 
orderCeler | AHS0000006k 

0 — fmBorderSty]ejone 
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True 
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步骤 06 设置 标签 的 字体 。 弹 出 “字体 ”对 话 框 , 设置 “字体 ”为 黑体 ”、“ 字 形 ” 为 “常规 、“ 大 小 ”为 “五 号 ”， 设置 完毕 后 单 击 “确定 ”按钮 ， 如 下 图 所 示 。 


厂 下 划 线 (U) 微软 中 文 软件 


步骤 07 设置 标签 控件 的 格式 。 返 回 “ 属 性 -标签 ”窗口 ， 设 置 ForeColor 属 性 为 蓝 色 、Height 属 性 为 20、TextAlign 属 性 为 1-fmTextAlignLeft， 如 下 图 所 示 。 
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HelpContextID 0 
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SpecialFttect 0 -— tmSpecialEttectFl]at 
ITabIndex 0 

False 
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步骤 08 ”选择 窗 体 属性 。 在 “属性 -标签 ”窗口 中 单 击 “ 控 件 ” 右 侧 的 下 三 角 按钮 ， 在 展开 的 列表 中 单 击 UserForm1 UserForm 选 项 ， 如 下 图 所 示 。 
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BackColor DD &H8000000F& 

Bor derColor 园 wH50000010k 
BorderStv]e 0 一 tmBorderSty]leNone 
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Cvc]e 0 - tmCycleAllForms 
Dr awButfer 

Enabled 

Font | 

ForeCol or 国 &H80000012& 


步骤 10 ”绘制 文本 框 。 单 击 工具 箱 中 的 “文本 框 ”按钮 池 ， 然 后 在 用 户 窗 体 对 象 窗口 中 单 击 并 拖 动 鼠标 ， 拖 动 至 合适 大 小 后 释放 上 鼠标， 完成 文本 框 控 件 的 绘制 ， 如 下 图 所 示 。 


步骤 11 修改 文本 框 的 属性 。 选 中 绘制 的 文本 框 控 件 ， 此 时 “属性 ”窗口 中 显示 的 即 为 文本 框 控件 的 属性 ， 将 ”( 名 称 ) ”属性 修改 为 Name1， 如 下 图 所 示 。 


TextBoxzl TextBox 
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(和 和 Hamel 
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步骤 12 ”添加 其 余 控 件 。 用 上 面 介绍 的 方法 ， 在 用 户 窗 体 中 添加 如 下 图 所 示 的 控件 ， 并 按照 下 表 修改 控件 的 属性 值 ， 再 将 命令 按钮 控件 的 字体 改 为 “黑体 ”， 字 号 改 为 “小 四 ”。 


| 


EH 
EE EE 


知识 链接 ”RefEdit 控 件 的 添加 


RefEdit 控 件 | 习 用 于 输入 或 选 定单 元 格 区 域 ， 但 它 默认 不 显示 在 VB 编程 环境 的 工具 箱 中 ， 需 要 手动 添加 ， 方 法 为 : 在 VBE 编 程 环境 中 单 击 “ 工 具 > 附 加 控件 ”菜单 命令 ， 在 弹出 的 “附加 控 
件 ” 对 话 框 的 “可 用 控件 ”列表 框 中 义 选 “RefEqditCtd ” 复 选 框 ， 单 击 “ 确 定 ” 按 钮 ， 如 右 图 所 示 ， 随 后 即 可 在 工具 箱 中 看 到 添加 的 RefEdit 控 件 按钮 回 。 
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3.2.2 ”为 窗 体 控件 添加 相应 的 事件 代码 


设计 好 用 户 窗 体 后 ， 若 要 实现 自动 提取 客户 信息 的 功能 ， 还 需要 为 该 窗 体 中 的 控件 添加 相应 的 事件 代码 。 具 体操 作 如 下 。 


步骤 01 打开 用 户 窗 体 代码 窗口 。 继 续 上 一 小 节 的 操作 ， 右 击 “ 工 程 ” 窗 口中 的 “批量 提取 ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 查 看 代码 ”命令 ,如 下 图 所 示 。 


rt (FUNCRES. ILAN) 


Capes (自动 捍 取 客户 信息 . =] sm) 
1orosott Exce] 对 铺 


VBAProject 尾 性 (日 ). 


步骤 02 ”选取 控件 。 打 开 “ 批 量 提取 (代码 ) ”窗口 ， 单 击 “ 对 象 ” 右 侧 的 下 三 角 按 钮 ， 在 展开 的 列表 中 单 击 OK 选项 ， 如 下 图 所 示 。 
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Se 


步骤 03 ”编写 检查 选取 区 域 和 列 名 的 过 程 函 数 。 在 “批量 提取 (代码 ) ”窗口 中 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 主要 根据 CheckArea() 函 数 的 返回 值 来 判断 用 户 选 取 的 区 域 的 有 效 性 ， 其 中 使 用 
二 维 数 组 存放 用 户 输入 的 列 名 和 选择 的 区 域 值 。 


Private Sub OK Clickd 
' 声明 二 维 数 组 


Din lectareyse 4) hs Integer 
' 调用 检查 选取 区 域 的 函数 
It Checet oats eet 二 
如 采用 户 选 取 区 域 有 旋 
MsgBox a 
Exit Sub 


End I+i z 
"调用 检查 选取 列 名 的 轩 数 
I+t CheckNane = False Then 
"如果 列 名 为 空 则 结束 过 程 
JsgEox “ 列 名 文本 框 不 可 为 空 ” 
Exit Sub 
End I+ 


步骤 04 ”编写 创建 新 工作 表 表 头 的 代码 。 在 “批量 提取 (代码) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 主 要 使 用 Worksheets 对 象 的 Add 方 法 来 添加 新 工作 表 ， 并 将 其 重 命名 为 “客户 通信 
录 ”， 然 后 使 用 With 语 句 制作 表 头 。 


' 错误 处 理 
On Error GoTo ms 
关闭 Excel 的 自动 羽 慕 刷新 和 错 1 夫 提 示 
Application.DisplayAilerts = False 
Applicatlon, screenUr ns ™ : False 
' 创建 新 工作 表 ， 并 为 其 曾 
Dim newtable is et 
Set newtable = Worksheets. Add _ 
(before:=Worksheets (1)) 
ewtable, Hame = “ 寡 户 通信 和 录 ” 
"制作 新 工作 表 的 表 头 
hctiveSheet. Ranee(”A1”) = 
With newtable. Range(l”Al:D1 oy 
. Meree 
. HorizontalAli gm ent = xlCenter 
.Font, Name = “华文 楷体 ” 
.Font. Size = 16 
.Font.Color = RGB'(O, 
End With 


知识 链接 ”Private Sub OK_Click 语 句 
Private Sub OK_Click 语 名 用 于 设置 单 击 OK 命 令 按 钮 控件 时 发 生 的 对 应 事件 。 其 代码 中 的 MsgBox0 疯 数 用 于 以 对 话 框 形式 显示 给 定 的 信息 。 
重点 语法 与 代码 剖析 : Worksheets.Add 方 法 的 用 法 
大 语法 格式 
object.Add (Before, After) 
大 功能 说 明 


Worksheets 对 象 的 Add 方 法 用 于 在 Excel 工 作 簿 中 添加 工作 表 。 其 中 ，object 是 必需 参数 ， 指 一 个 有 效 的 对 象 名 ; Before 是 可 选 参数 ， 用 于 指定 将 添加 的 工作 表 置 于 此 工作 表 之 前 ; 同 理 ，Aftet 用 于 指定 将 
添加 的 工作 表 置 于 此 工作 表 之 后 。 需 要 注意 的 是 ，Before 和 After 参 数 不 能 同时 指定 


步骤 05 编写 制作 列 名 的 代码 。 在 “批量 提取 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 来 获取 在 用 户 窗 体 中 输入 的 列 名 ， 然 后 使 用 With 语 句 制作 列 名 。 


' 根据 用 尸 输入 制作 列 名 

With newtable 
. Rangel( sa2 ) .Value = Nanel. Yalue 
.Ranget B2’').Value = Nane2. Yalue 
.Range(’ C2’).Value = Name3. Yalue 
. Range(’D2’) .Value = Named. Yalue 

End YWith 


步骤 06 编写 提取 信息 的 代码 。 在 “批量 提取 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 根据 选择 的 区 域 循环 提取 每 个 工作 表 中 的 信息 ， 并 使 用 MyCopy() 过 程 将 其 复制 到 新 工作 表 


"定义 循环 变量 和 行 变量 row， 并 初始 化 其 值 
Dinm 1 As Integer 
Dim row is Integer 


1 三 污 
* 循环 提取 工作 表 中 的 信息 
For 1 = 2 To Worksheets.Count 
" 调用 MyCopy 0 过 程 复制 工作 表 的 信息 


NyCopy newtable, Worksheets (i), _ 
row, selectarea 
row = row + 1 
Next 1 


重点 语法 与 代码 剖析 : With...End With 语 句 的 用 法 
大 语法 格式 
With object 
[statements|] 
End With 
大 功能 说 明 


该 语句 用 于 在 一 个 单一 对 象 或 用 户 自 定义 类 型 上 执行 一 系列 的 语句 。 它 可 以 对 菜 个 对 象 执行 一 系列 的 语句 ， 而 不 用 重复 指出 对 象 的 名 称 。 其 中 ，object 是 必需 参数 ， 用 于 指定 一 个 对 象 或 用 户 自 定义 类 型 
的 名 称 ; statements 是 可 选 参 数 ， 它 是 执行 在 object 上 的 一 条 或 多 条 语句 。 


步骤 07 编写 自动 调整 列 宽 的 代码 。 在 “批量 提取 (代码) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 主要 用 于 在 提取 过 程 顺 利 完成 后 ， 调 整 新 建 工 作 表 的 列 宽 至 合适 的 宽度 ， 其 中 主要 使 用 
Range 对 象 的 AutoFit 方 法 来 实现 。 


| = x 


' 调整 新 工作 表 的 列 宽 


newtable. Range(’ al ) ,CurrentRegion， 
Columns. AutoF1t 本 
' 开局 Exce1l 目 动 屏 慕 刷 新 和 和 错 读 提醒 功能 用 
Application. Displayilerts = True 
tp on. ScreenUpdatine = True 


闭 用 户 窗 恒 
Me. Hide 
Exit Sub 


步骤 08 编写 错误 处 理 代码 。 在 “批量 提取 (代码) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 主要 用 于 在 提取 过 程 出 现 错误 时 ， 自 动 删除 新 建 的 工作 表 ， 并 弹出 提示 框 ， 提 示 用 户 已 有 名 为 “ 
户 通 信 录 ”的 工作 表 。 


箱 才 处 理 从 码 段 
删除 新 工作 表 


newtable. Delete 

Applicatlion. DisplayAlerts = True 

二 True 
示 错 读 提 


”NsgBox “已 有 名 为 “ 寡 尸 通信 和 录 ” 的 工作 表 ! ” 
End Sub 


< 


重点 语法 与 代码 剖析 : Range.AutoFit 方 法 的 用 法 
大 语法 格式 

表达 式 .AutoFit 

大 功能 说 明 


Range 对 象 的 AutoFit 方 法 用 于 更 改 区 域 中 的 列 宽 或 行 高 ， 以 达到 最 佳 匹配 。 其 中 ，“ 
误 。 一 个 列 宽 单位 等 于 “常规 样式 中 一 个 字符 的 宽度 。 其 返回 值 为 Variant。 


步骤 09 ”编写 CheckArea0 函 数 的 前 半 部 分 代码 。 在 “批量 提取 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 
查 代码 。 


表达 式 ” 是 一 个 代表 Range 对 象 的 变量 。Range 对 象 必须 是 行 或 行 区 域 ， 或 者 是 列 或 列 区 域 ， 否 则 ， 该 方法 将 产生 错 


， 该 代码 段 主 要 用 于 检查 窗 体 中 的 选择 区 域 是 否 有 效 。 本 段 代 码 包 含 前 两 个 区 域 的 检 


| 区 域 的 函数 


Private Function Checkhrea(position() ks Integer) _ 


: As Boolean 
"用 错 旋 处 理 的 方法 志 断 


Checkarea = True 


On Error Golo no | : 了 
"检查 区 域 1 的 有 效 性 并 记录 用 户 选 择 的 行列 序 亏 
Dim selectarea hs Range 

Set selectarea = Range(tareal.Talue) 

It selectarea.Count «<» 1 Then CoTo no 
position(l, 1) = selectarea. row 
position(2, 1) = selectarea. Column 
与 上 类 似 ， 检查 区 域 2 : 

Set selectarea = Ranee'(Area2,. Value) 

It selectarea.Count <» 1 Then GoTo no 
positiont(l, 2) = selectarea, rovw 
position(2, 2) = selectarea. Column 


步骤 10 ”编写 CheckArea0 遂 数 的 后 半 部 分 代码 。 在 “批量 提取 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 其 中 包含 后 两 个 区 域 的 检查 代码 。 由 于 用 户 窗 体 中 的 控件 数量 无 法 确定 ， 因 此 必须 
针对 每 个 控件 编写 检查 代码 ， 而 不 能 用 循环 实现 。 


v| |Checkhrea 
' 与 上 类 似 ， 检查 区 域 3 


Set selectarea = Range (hrea3. Yalue) 
It selectarea.Count <» 1 Then GoTo no 
position(l, 3) = selectarea. row 
positiont2, 3) = selectarea. Column 

' 与 上 类 似 ， 检查 区 域 4 
Set selectarea = Range(Ahread. Yalue) 
It selectarea.Count «<» 1 Then GoTo no 


position(l, 4 = selectarea. row 

position(2, 4) = selectarea.Column 
绩 束 过 程 _ 

Ex1lt Funct 


` 如 有 错 庄 庆 襄 明 区 域 不 符合 要 求 


CheckaArea = False 
Function 


重点 语法 与 代码 剖析 : CheckArea() 函 数 功能 的 实现 思路 
CheckArea0 函数 通过 错误 处 理 的 方式 实现 对 选择 区 域 的 检查 。 如 果 选 择 区 域 是 有 效 的 ， 那 么 将 选择 区 域 的 结果 赋值 给 Range 对 象 的 变量 就 不 会 出 错 。 反 之 ， 如 果 赋 值 操作 出 错 ， 则 说 明 选 择 的 区 域 无 效 


步骤 11 自 定义 CheckName() 浮 数 。 在 “批量 提取 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 于 判断 用 户 窗 体 中 4 个 文本 框 的 内 容 是 否 为 空 。 


通用 ) 


| 
' 检 生 用 户 答 六 列 名 的 凶 数 | 
Private Function CheckNamne ) hs Boolean 
' 列 名 不 为 宇 即 可 
CheckName = True 
It Nanmel. Yalue 
It Name2. Yalue 


Then GoTo nolnm 
Then GoTo noln 
~ Then GoTo noln 

Then GoTo noln 


It Names. Yalue 

It 可 amed. Value 

Exit Functlon 
noln: 

CheckName = False 
End Function 


步骤 12 ” 自 定义 MyCopy(0 过 程 。 在 “批量 提取 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 其 中 主要 采用 间接 复制 的 方法 从 指定 区 域 复制 数据 到 新 工作 表 中 ， 并 将 指定 区 域 的 位 置 存 储 在 area 数 
组 中 。 


a il ~ 


LL 和 口 A 
"从 指正 工作 表 的 指定 位 首 复 制 的 过 程 
Private Sub JyCopy Cain hs Worksheet, 
source hs Worksheet, row is Integer., 
area() As Integer) 
,声明 入 环 变量 
Din 1 hs Integer 


,入 环 复制 四 个 区 
“复制 指定 二 


urce. Cells (areat 


1l, i), areat2, i)).Copy 
”粘贴 到 指定 工作 素 的 指正 位 次 
ainm.Paste ainm.Cellstrow, i), False 
Next 1 
End sub 


高 手 点 拨 : Copy 和 Paste 方 法 的 用 法 


在 定义 MyCopy0 过 程 的 代码 段 中 ， 使 用 Copy 和 Paste 方 法 来 复制 和 粘贴 单元 格 中 的 内 容 。 这 两 个 方法 的 使 用 与 菜单 命令 中 的 “复制 ”和 “粘贴 ”是 完全 一 样 的 。 


步骤 13 编写 “调用 用 户 窗 体 的 过 程 ” 代 码 。 在 VBE 编 程 环境 中 插入 “模块 3”， 在 “模块 3 (代码 ) ”窗口 中 输入 如 右 图 所 示 的 代码 段 ， 该 代码 段 用 于 显示 用 户 窗 体 ， 可 以 指定 给 按钮 控件 。 


《通用 ) 


' 调用 用 户 窗 体 的 过 程 
sub 批 重 提取 局 


Set form = New 提取 
form. Show 
Set form = Nothine 

End Sub 


Dim torm As 人 
比 


知识 链接 ”调用 用 户 窗 体 的 Show 方法 


使 用 Show 方法 在 模块 中 调用 用 户 窗 体 时 ， 常 常 将 用 户 窗 体 指 定 给 某 个 变量 ， 然 后 显示 用 户 窗 体 。 


3.2.3 ”运行 代码 提取 客户 信息 


编写 完 代码 后 ， 还 需 在 工作 表 中 添加 按钮 控件 并 指定 对 应 的 宏 ， 以 方便 启动 代码 的 运行 。 具 体操 作 如 下 。 


步骤 01 绘制 按钮 控件 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


加 ”Excel COM 加 载 项 
载 项 ”加载 萝 
加 载 欧 


Ng 人 
和 


公司 本本 人 


rong]lng network company 


步骤 02 为 按钮 控件 指定 宏 。 在 “ 融 江 科技 ”工作 表 中 绘制 按钮 控件 ， 绘 制 完毕 后 释放 鼠标 ， 弹 出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 自 动 提取 客户 信息 .xlsm! 模块 3. 批 量 提取 ”选项 ， 如 
下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 即 可 。 


步骤 03 ”执行 安 。 将 按钮 的 名 称 更 改 为 “自动 提取 客户 信息 ”， 然 后 单 击 任意 位 置 激活 按钮 控件 ， 再 单 击 “ 自 动 提 取 客 户 信息 ”按钮 ， 如 下 图 所 示 。 


技 有 限 公司 是 2007 年 10 月 刚 注册 的 ， 注 册 资金 达到 200 万 ， 其 主要 经 营 范围 是 
如 CPU、 内 存 、 显 示 器 、 机 箱 及 电脑 常用 附件 ， 如 键盘 、 鼠 标 、 丁 机 等 ， 同 时 
件 ， 如 操作 系统 、 各 种 应 用 软件 等 。 


步骤 04 ”输入 要 提取 的 列 名 。 弹 出 “批量 提取 ”对 话 框 ,在 “ 列 名 ”文本 框 中 输入 “公司 名 称 ”， 单 击 “ 区 域 ” 右 侧 的 选取 按钮 ， 如 下 图 所 示 。 


列 名 | 区域 | .| 


列 名 mm 区 域 厂 一 | 
列 名 六 “ 区 域 厂 一 一 


步骤 05 ”选择 需要 的 区 域 。 此 时 返回 工作 表 ， 单 击 单元 格 B2， 单 击 “ 批 量 提取 ” 对 话 框 中 的 单元 格 引用 按钮 ， 如 下 左 图 所 示 。 


L 


公司 ss 况 登 i 


融 江 科技 有 限 公司 是 2007 年 10 月 刚 注 册 的 ，， 
电脑 硬件 ， 如 CPU、 内 存 、 显 示 妖 、 机 箱 及 电脑 常 
并 噩 电 脑 软 件 ， 如 探 作 系 统 、 名 种 应 用 软件 持 。 


步骤 06 输入 其 他 列 名 和 区 域 。 用 相同 的 方法 ， 在 “批量 提取 ”对 话 框 中 输入 列 名 “负责 人 ” “联系 电话 ”， 并 在 工作 表 中 选择 相应 的 单元 格 区 域 ， 单 击 “ 确 定 ”按钮 ， 如 下 右 图 所 示 。 


融 江 科技 !$B$2 -~ 


】 融 江 科技 !$843 
列 名 | 联系 电话 区 域 
列 名 | 区 域 一 一 一 


确定 民 | 


列 名 


列 名 


名 江 科技 !$8$2 - 


剧 江 科技 ! 
有 江 科 技 !$B$4 ~ | 
让 本 科技 1 $B$5| 二 


C | 
客 己 通信 孙 
公司 名 种 负 et 以 系 昌 硬 _ 公司 地 址 


] 技 |; 

] 过关 网络 | 入 辣 平 |01 99 Seeey 上 北京 市 用 洒 吉 舌 和 65 
| 地 010-8235+*** | 北京 市 惠 民 路 256 写 

对 益阳 科技 | 郝 盖 平 |010-8456+####_ | 北京 市 朝阳 区 阳平 路 456 己 
] 瑞 宁 科技 a 中 关 村 宁夏 路 156 号 

] 让 坟 风 络 隆 扬 一 010- G0314ett 北京 市 昌平 西 三 环 150 号 
| 环宇 科技 | 刘 恒 。 1010-8765**** | 北京 朝阳 区 东 二 环 路 18 己 
| 宏 雨 科技 | 文 中 关 村 高 科技 园区 1635 号 
华 洛 网 络 上 加 站 二- 北京 市 西 郊 林 荫 路 231 号 


步骤 10 ”继续 提取 客户 信息 。 当 工作 簿 中 存在 “客户 通信 录 ” 工 作 表 时 ， 再 次 打开 “批量 提取 ”对 话 框 并 输入 各 项 信息 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


| 融 江 科技 | 向 es 
志 网 千 | 


和 工科 控 !$B$2 


Fy 列 名 「 负责 人 区 域 | 融 工 科技 !$843 
01 
01 列 名 | 联系 电话 区 域 | 项 工科 技 !4544 
01 

| 列 名 | 公司 地 址 区 域 kn$5 客 户 通信 录 1| 


‘DD =] 


C | 
客户 通信 录 
A 司 名 各 人 联系 电话 批量 提取 
融 江 科技 亲 8259+t 


Microsoft Excel 


列 名 「 到 


列 名 「 贡 “已 有 名 为 客户 通信 录 的 工作 才 


华海 网 络 | 了 阵 协 ol TFT ES 
环宇 科技 文 刘 恒 ”|010- B705+t 列 名 | 联 


左 坪 科技 列 名 「 公 
华 洛 网 络 | 李 晶 。 |010-8756xwt 入 


步骤 12 关闭 “批量 提取 ”对 话 框 。 当 “批量 提取 ”对 话 框 还 显示 在 工作 表 中 时 ， 单 击 “ 取 消 ” 按 钮 可 关闭 对 话 框 ， 如 下 右 图 所 示 。 


| 融 江 科技 !$B$2 
或 | 融 江 科技 !'$B$3 
| 融 江 科 技 !$844 
囊 江 科技 !$8$5 


取消 从 


3.3 ” 目 动 保护 客户 信息 


完成 客户 信息 的 制作 后 ， 常 常 需要 保护 工作 表 ， 以 避免 他 人 修改 等 。 在 Excel 工 作 簿 中 对 少量 工作 表 进行 保护 是 很 容易 的 事 ， 但 是 要 对 众多 工作 表 进 行 保护 ， 操 作 起 来 难免 繁杂 。 本 节 将 以 VBA 程 序 实现 
众多 工作 表 的 同时 保护 及 撤销 保护 ， 提 高 用 户 的 工作 效率 。 


要 码 看 视频 


A : 实例 文件 \ 第 3 章 \ 原 始 文 件 \ 自 动 保护 客户 信息 .xlsm 


: 实例 文件 \ 第 3 章 \ 最 终 文件 \ 自 动 保护 客户 信息 .xlsm 


在 Excel VBA 中 ， 可 通过 Worksheet.Protect 或 Worksheet.Unprotect 方 法 来 保护 或 撤销 保护 工作 表 。 具 体操 作 如 下 。 


又 01 ”定义 存储 密码 的 变量 。 打 开 原 始 文件 ， 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 双击 ThisWorkbook 选 项 ， 打开“ThisWorkbook (代码 ) ”窗口 ， 在 该 窗口 中 输入 如 下 图 所 示 的 代码 ， 用 于 定 
义 存 储 密码 的 变量 。 


"定义 存 情 保护 密码 与 撤销 保护 密码 的 变量 并 初始 化 值 ”到 
Dim passwd As Strlmg 
Dim CP As Strine I 


步骤 02 编写 “自动 保护 客户 信息 ”代码 。 在 “ThisWorkbook (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 主要 用 于 循环 操作 工作 短 中 的 每 一 张 工作 表 ， 通 过 用 户 输入 的 密码 对 工作 表 
进行 保护 。 


下 
sub 目 动 保护 六 : -000 
passyd = InputBox(” 傅 输入 保护 密码 ， 密 码 为 6 位 数字 ”) 
”对 所 有 工作 对 汝 执行 往 环 
For Each one In Worksheets 
' 激活 某 个 工作 表 
one,. Select 
' 保护 工作 囊 
ActiveSsheet. Protect Password:=passwd, 
DrawinsObjects:=True, _ 
Contents :=True, Scenarlos :=Tiue 
Next one 
" 显示 保护 工作 表 成 功 的 提示 信息 
NsegBox ("元 完成 客户 信息 表 的 保护 ”) 
End Sub 


重点 语法 与 代码 剖析 : Worksheet.Protect 方 法 的 用 法 
大 语法 格式 
表达 
式 .Ptotect (Password, DrawineObjects, Contents, Scenarios, UsetIntetfaceOnhly，AllowFotmattingCells ，AllowFotrmattingColumns ，AllowFormattingRows，AllowInsettingColumns ，AllowInsettingRows ，AllowInsett 
大功 能 说 明 


它 主要 用 于 保护 工作 表 或 工作 簿 。 其 中 ，“ 表 达 式 ”是 必需 参数 ， 代 表 Worksheet 对 象 的 变量 。 如 果 对 工作 表 应 用 Protect 方 法 时 ， 将 UserInterfaceOnly 参 数 设 为 True， 然 后 又 保存 了 工作 簿 ， 那 么 再 次 打开 
工作 簿 时 ， 整 张 工作 表 将 被 完全 保护 ， 而 并 非 仅 保 护 用 户 界面 。 要 在 打开 工作 敌后 重新 启用 用 户 界 面 保 护 ， 必 须 再 次 将 UsetIntetfaceOnly 参 数 设 为 True 并 应 用 Ptotect 方 法 。 


要 在 受 保护 的 工作 表 上 做 更 改 ， 如 果 提 供 密码 ， 则 可 在 受 保护 的 工作 表 上 使 用 Protect 方 法 。 男 一 种 方法 是 : 取消 工作 表 保护 ， 对 工作 表 做 一 些 必 要 的 更 改 ， 然 后 再 次 保护 工作 表 。 


步骤 03 ”编写 “撤销 保护 工作 表 ” 代 码 。 在 “ThisWorkbook (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 使 用 For 循 环 语句 对 比 用 户 输入 的 密码 与 设置 的 密码 是 否 一 致 。 如 果 是 一 致 的 ， 
则 撤销 工作 表 的 保护 ; 反之 ， 弹 出 提示 框 ， 提 示 输 入 的 密码 有 误 。 


- Sub 人 
正 必 存 克 擅 稍 保 护 的 密码 
CP = InputEBox 人 请 输入 撤销 保护 的 密码 ， 密 码 为 6 位 数字 ”) 


For Each one In Yorksheets 
one. Select 
It CP = passwd Then 
ActiveSheet. Unprotect Password:=CP 
one. Activate 
Else 
"pr “和 葵 六 密码 有 旋 ” 
Exit Sub 
End I 
Next one 
MsgBox “完成 撤 稍 保护 工作 表 ” 
End Sub 


we 


步骤 04 ”保存 代码 。 完 成 代码 的 编写 后 ， 单 击 工具 栏 中 的 “保存 ”按钮 ， 保 存 代码 ， 如 下 图 所 示 。 


HR Solver (SOLYER. ILAN} 
-YEATroject (FUECEES. ILAR) 
国 - 如 YBAProject 站 起 怪 殷 罕 户 伟 昌 .zlLsmj 
“二 Mm crosoft Excel] 对 钱 
… 畦 ， 1 Sheetl 过 岂 用 信和 有著) 
… 上 有】 sheet10 【 训 阳 网 至 ， 


3.3.2 ”保护 或 撤销 保护 工作 短 中 的 所 有 工作 表 


本 小 节 将 运行 编写 好 的 VBA 程 序 ， 实 现 同 时 保护 工作 簿 中 的 所 有 工作 表 ， 或 撤销 所 有 工作 表 的 保护 ， 具 体操 作 如 下 。 


步骤 01 绘制 按钮 控件 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 左 图 所 示 。 


客户 过 信和 水 目 天 | 息 
公司 地 址 同 @A 芭 晶 | 
< 站 丰 “| 北京 王府 井 265 号 


步骤 02 ”为 按钮 控件 指定 宏 。 在 工作 表 中 的 合适 位 置 绘 制 按钮 控件 ， 释 放 己 标 后 弹出 “指定 宏 ” 对 话 框 ,设置 “位 置 ” 为 “自动 保护 客户 信息 .xlsm” 选 项 ， 在 “ 宏 名 ”列表 框 中 单 击 “ThisWorkbook. 
自动 保护 ”选项 ， 单 击 “ 确 定 ”按钮 ， 如 下 右 图 所 示 。 


客户 通信 有 对 
小 . 百 二 

ono-ansrerr 训 计 认 208 守 一 全 ] 
Ja-974leett 呈 
010-8235kkyt | 北京 市 韦 民 路 256 号 
ono-assorst | 二 阳 区 阳平 路 456 号 
|oto=8794#ke# | 北京 中 头 村 宁夏 靖 156 号 
|o10-8231*#### | 北京 市 昌平 西 二 环 150 号 
|010-87654k#* | 北京 朝阳 区 东 二 环 路 18 号 
|o1o-8561+#k#+ | 中 关 村 高 科技 园区 1635 号 
|010-87564=k#<* | 北京 市 西部 林 戎 路 231 号 


位 置 (A): 自动 保护 客户 信息 .lsm 
说 明 


步骤 03 ”绘制 撤销 保护 宏 的 按钮 控件 。 将 按钮 控件 的 文本 修改 为 “自动 保护 客户 信息 表 ”。 利 用 相同 的 方法 ， 绘 制 “ 撤 销 所 有 工作 表 的 保护 ”按钮 并 指定 相应 的 安 。 单 击 “ 自 动 保护 客户 信息 表 ” 按 
钮 ， 如 下 图 所 示 。 


C 

客户 通信 录 

公司 名 称 负责 人 电话 _ 公司 地 址 

| 襄 ; 科 掖 | 齐 郝 欣 平 |010-8259### | 北京 王府 并 265 与 自动 保护 客户 信息 表 

| 志 阳 网 络 |> 刘 意 平 |010-8741#kk# | 北京 市 北海 道 西 御 门 458 号 se 
驰 瑞 网 络 PE ne2EE 京 市 惠 民 踏 256 号 

| 蓝 阳 科技 | 郝 苗 平 |010-8456xskek# | 北京 市 朝 阴 区 阴平 路 456 写 

| 瑞 宁 科技 | 谢 开 |010-8794keek | 北京 中 关 村 宁夏 路 156 写 其 销 所 有 工作 表 的 保 扩 
华海 网 络 [DIESE 京 市 昌平 西 二 环 150 号 2 和 
环宇 科技 | 文 得 一 |010-8765rtte 北京 朝阳 区 于 = 环 路 18 号 


LU 一] 人 EL 一 


| 宏 雨 科技 中 关 村 高 科技 园区 1635 号 
化 洛 网 络 等 让 、 |oto87568Ht 北京 市 届 郊 林 前 路 251 二 


步骤 04 ”输入 保护 密码 。 弹 出 对 话 框 ， 提 示 用 户 输入 保护 密码 ， 在 文本 框 中 输入 密码 ， 如 “123321”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


计 录 
公司 地 址 

“北京 王府 ~" 号 

上 下 于 由 和 : Microsoft Excel 


-HR 人 
| 中关村 高 L12332 | 
| 北京 市 西 J 放 市 | 明 酷 己 3L 瑟 


步骤 05 ”弹出 提示 框 。 系 统 执行 自动 保护 代码 ， 执 行 完毕 后 弹出 提示 框 ， 提 示 用 户 已 完成 客户 信息 表 的 保护 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


英文 名 称 |hualuo network company 
Microsoft Excel 人 

10-B756**** 

上 京 市 西部 林 靖 路 21 完成 客户 信息 才 的 保护 


华 治 网 络 公 司 站 ‘ 、 网 吧 及 个 信 高 价 收 购 旧 电 用 
(台式 、 总 记 本 ) ; , Js 而 电脑 。 从 公司 开业 之 日 起 ,上 自 推 “t\|E 
换 新 ”业务 ， 高 ee 攻 E 。 时 找 公司 还 经 宵 二 手笔 记 本 号 
脑 ， 让 您 花 得 更 少 ， 用 得 放心 。 


步骤 06 ”修改 单元 格 。 保 护 工作 表 后 ， 选 中 任意 数据 所 在 的 单元 格 ， 按 Delete 键 ,会 弹出 提示 框 ， 提 示 用 户 正 在 试图 更 改 被 保护 的 工作 表 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


GE D 
z 公司 基本 情况 登记 表 
公司 名 称 | 华 洛 网 络 。 | 英文 名 称 | 
\ BA 


010-8756++# [010875 Gt 


Microsoft Excel 


医 


C 
客户 通信 和 孙 

Ss et 联系 电话 北京 王府 和 
剧 g) 工 BA 上 京王 265 号 ee 

志 了 网 络 | 刘 意 平 |ot0-874Lkk## | 北京 市 北海 道 西 都 门 4658 瑟 。 。 目 习 保护 吉 全 信息 表 
驰 瑞 网 络 郑 文 瑞 |o1o-8235+HH+k | 北京 市 惠 民 路 256 号 
益阳 科技 | 郝 基 平 |o10-8456kkek | 北京 市 朝阳 区 阳平 彤 456 号 
瑞 宁 科技 | 谢 宁 ”|010-8794###*# | 北京 中 关 村 宁夏 路 156 号 向 销 所 有 工作 表 的 保护 
华海 网 络 | 阵 扬 ”|010-8231**** | 北京 市 昌平 西 三 环 150 号 怀 放 HT 月 上 1 本 : 
环宇 科技 010-8765***** | 北京 朝阳 区 东 二 环 路 18 
宏 雨 科技 | 刘 星 宏 |o10-8561####+ | 中 关 村 高 科技 园区 1635 号 
华 党 网 络 | 李 早 ”1010-8756##*# | 北京 市 西 郊 林 兰 跨 231 与 


步骤 08 输入 错误 的 密码 。 弹 出 对 话 框 ， 提 示 用 户 输入 撤销 保护 工作 表 的 密码 ， 在 文本 框 中 输入 “123456”， 单 击 “ 确 定 ”按钮 ， 如 下 右 图 所 示 。 


客 尸 馆 信 隶 
联系 电话 公司 入" 
010-8259* 站 站 站 | 北京 : Microsoft Excel 
010-8235#*#*# 丰 | 北京 
010-8456**+ 本 | 北京 
010-8794+*# 本 | 北京 
010-8231#### | 北京 一 
010-8765### | 北京 
010-8561#### | 中 关 林 高 料 预 四 区 1635 亏 ” \ ) 
北京 市 西部 林 冰 路 231 


步骤 09 ”弹出 提示 框 。 系 统 弹 出 提示 框 ， 提 示 用 户 输入 的 密码 有 误 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


客户 过 信和 承 
联系 电 匡 公司 地 址 a 
|o10-8259*#x###* | 北京 王府 井 265 号 se 车 -信息 来 
| i 
|010-8235#:## ”| 北京 市 惠 民 踏 256 亏 ” ，  - 
|olo-8456kkkk | 北京 市 朝阳 区 阳平 中 个 
|010-8794#*#*# 本 | 北京 中 关 村 宁夏 路 156 
[010-8231***<* | 北京 市 昌平 西 三 环 150: 


|o1o-8765*#*###+ | 北京 朝阳 区 车 二 环 路 1 
|olo-8561#### | 中 关 村 高 科技 园区 163! 
1010-8756** | 北京 市 西 郊 林 戎 路 231 己 


步骤 10 ”输入 正确 的 密码 。 再 次 单 击 “撤销 所 有 工作 表 的 保护 ”按钮 ， 在 弹出 的 对 话 框 中 输入 正确 的 密码 “123321”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


八 司 地 有 
北京 = Microsoft Excel 


010-8741 丰 站 不 | 北京 5 、， 
010-8235 本 站 丰 | 北京 7 “ 
010-8456### 丰 | 北京 7 

010-8794## 亲 本 | 北京 上 
010-8231 丰 ”| 北京 7 - 


010-8765++++ | 北京 


010-8561###+# | 中 庆 柯 疝 和 料 预 四 [31635 志 ”” \ 
010-8756***<* | 北京 市 西部 林 靖 路 231 亏 


高 手 点 拨 : 弹出 撤销 工作 表 保 护 对 话 框 
如 果 在 撤销 工作 表 保护 时 ， 需 要 每 个 工作 表 都 弹出 “撤销 工作 表 保 护 ” 对 话 框 ， 则 将 “撤销 保护 0” 过 程 的 “ActiveSheet.Unptotect Password: = 二 CP” 代 码 中 的 “Password: =CP” 参 数 删除 即 可 。 


步骤 11 “完成 撤销 保护 。 执 行 完毕 后 弹出 提示 框 ， 提 示 用 户 已 完成 撤销 保护 工作 表 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 右 图 所 示 。 


英文 名 称 |hualuo network company | 成 立时 间 
Microsoft Excel ~ 


华 洛 网 络 公司 常 。 ”poy 事业 单位 、 网 吧 及 个 人 高 
《台式 、 笔记 本 ) ,并 | .| 电脑。 从 公司 开业 之 日 起 ， 


人 么 可 简介 损 新 ” 务 ， 高 端 配 。 hs ra i i ,wa UE 名 同时 ， 找 公 司 还 竹 稍 
脑 ， 让 您 花 得 更 少 ， 用 得 放心, 。 


第 4 章 ”员工 基本 资料 管理 


查询 并 标示 所 有 符合 条 件 的 员工 联系 方式 ， 以 及 精确 查找 / 蔡 换 和 模糊 查找 / 蔡 换 功能 


本 章 以 “员工 基本 资料 管理 ”为 例 ， 介 绍 如 何 使 用 VBA 程 序 代码 及 其 用 户 窗 体 功能 实现 快速 删除 离职 员工 信息 、 


”的 员工 的 信息 ， 然 后 在 


要 进行 员工 基本 资料 的 修改 、 删 除 等 操作 ， 如 员工 离职 后 需要 删除 该 员工 的 相关 信息 。 本 节 将 首先 编写 VBA 程 序 代码 快速 删除 备注 为 “离职 


在 管理 员工 基本 资料 时 ， 常 常会 需 


此 基础 上 改进 代码 ， 人 允许 用 户 自行 指定 删除 的 条 件 。 


扫 码 看 视频 


ma ， 实 例文 件 \ 第 4 章 \ 原 始 文件 \ 删 除 指定 条 件 记录 .xlsm 
实例 文件 \ 第 4 章 \ 最 终 文件 \ 删 除 指 定 条 件 记录 .xlsm 


假设 一 旦 有 员工 离职 ， 人 事 部 就 会 在 员工 基本 资料 表 中 该 员工 的 “备注 ”字段 中 填写 “离职 ”， 接 下 来 编写 VBA 程 序 代 码 实 现 快速 删除 “备注 ”字段 为 “离职 ”的 员工 的 信息 。 
进入 VBE 编 程 环境 。 打 开 原 始 文件 ， 可 看 到 表 中 有 4 名 员工 的 “备注 ”字段 中 填写 了 “离职 ”， 如 下 图 所 示 。 按 Alt+F11 组 合 键 ， 进 入 VBE 编 程 环境 。 


H b 


H 
员工 基本 资料 表 
和 皇 秀 “到 了 日 期 ” 罕 历 联系 方式 现在 地 址 身份 证 亏 

30 20062578 本 科 nt10-9342012 北京 海 注 了 区 永 二 环 本 不 丰 站 站 站 本 丰 本 站 站 本 本 亲本] 阁 广 六 5 和 
27 2007/2/1 研究 生 1592542121 北京 海 注 医 西 三 环 *# 六 六 站 六 站 亲生 站 本 亲 丰 合生 5 后 和 
sd LN 1583564212 北京 党 充 区 华 尝 路 站 站 站 站 亲本 亲 站 亲本 闵 王 时 语 5 后 后 
23| ”2007/3/5| 太 志 010-9354521 北京 案 京 区 党 山 路 # 站 本 半 k 六 站 六 六 厅 亲 本 不 辣 5 后 5 
24 2007/3/5 本 科 1359456521 北京 朝阳 区 新 南 足 站 站 站 站 站 站 站 本 站 不 人 5 生 昌 半 5 
2 200774712 本 科 1355485125 北京 朝阳 区 .+ 南 踏 六 本 六 Fk 冰 闲 冰 站 站 六 太太 站] 与 中 95l 
25 2007/4/12 研究 生 1356554712 北京 宗 广 区 白 姓 路 # 站 本 弟弟 亲 半 站 站 六 本 六] 旺 449 吕 白 


26 2007/98;20 本 科 
25| 200778220 本科 
24 200779;20 本 科 
27| 200719220 太志 
26 200779;25 六 大 
25 2007/9/25 本 科 
23| 200779;25 | 本科 
21 20007078 六 专 
25 2007/10/8 本 科 
26 ， 2007711/20 研究 生 
26 2007211720 研究 生 
26| 20007127 


1365487154| 北 京王 府 并 +++ 
1324567785 北京 王府 并 #:# 
1313245461 北京 王府 并 #x## 
1395452234 北京 宣武 区 + 
1375451325 北京 宣武 区 + 
1596454122 北京 宣 焉 区 站 站 


010-9645754 北京 宣武 区 


1597844545 北京 宣武 区 *+** 
1581654214 北京 焉 庆 踏 #*# 
1325654575 北京 和 庆 路 #s+ 
1324549878 北京 延庆 路 + 


1335246785 il 


站 站 站 站 站 半 十 二 站 直 站 中 二 三 半日 了 5 
本 间 二 亲本 本 站 亲本 本 本 不 1 号 5 皇马 
本 站 二 站 冰 亲 站 亲 亲本 冰 下 语 吕 半 ] 55 吕 
术 六 本 亲本 亲 六 亲 亲本 六 玉 启 吕 马 5 了 斗 
林 亲 二 本 站 站 二 亲本 本本 玉 吕 马 听 器 斗 吕 
林 亲 二 本 冰冰 二 亲本 林 本 玉昌 吕 昌 斗 
太 站 站 亲本 本 站 亲本 本本 本 下 号 量 半 吕 旺 
三 亲本 本 本 本 二 本 本 本 林 下 语 与 半生 5 语 后 
本 六 本 亲本 本 站 本本 本 本末 吕 五斗 5 后 
六 六 六 本 六 本 六 本本 六 六 玉 后 瑟 避 昌 半 六 
站 于 让 本 本 让 二 本 村 让 二 本 号 之 后 相 吕 了 
站 才 示 站 冰冰 丫 半 站 本 站 于 二 立 让 曲直 只 


步骤 02 插入 模块 。 进 入 VBE 编 程 环 境 后 ， 在 “工程 ”窗口 中 右 击 “VBAProject (删除 指定 条 件 记 录 .xlsm) ” ， 在 弹出 的 快捷 菜单 中 单 击 “ 揪 入 > 模块 ”命令 ， 如 下 图 所 示 。 


国 国 | 各 | 


田 - 厄 Solver (SOLYER. ILAN) 
丰 - 妆 YBAProject (FUECEES. ILAN) 
.YBAProject (删除 指定 条 件 训 
日 本 Exce] 对 鳃 
种 | Sheetl (Sheetl) 
转 ] Sheet2 (Sheet2) 
Sheet3 (Sheet3) 


Thi =sWorkbook 


步骤 03 修改 模块 的 名 称 。 按 F4 键 ， 快 速 打 开 “ 属 性 -模块 1” 窗口， 在 “ 按 字母 序 ” 选 项 卡 下 设置 ” (名 称 ) ”属性 为 “快速 删除 离职 员工 信息 ” ， 如 右 图 所 示 。 


模块 1 模块 
按 字 母 序 按 分 类 序 


匡 汪 可 说 快速 是 除 敲 职员 工 信 息 


步骤 04 ”编写 “快速 删除 离职 人 员 资 料 )” 过 程 代码 。 在 “快速 删除 离职 员工 信息 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 判断 “备注 ”字段 是 否 为 “离职 ”。 如 果 是 ， 则 删除 
该 行 数据 记录 。 


Fe 


: 人 快速 删除 离职 人 员 资 料 
" 快 庆 A 人 人 

Sub 快 于 贡 和 高 职员 次 桩 0 

"| 量 丰 请 Sheet1l 二 作 表 

Din sht hs Worksheet : 

Set Sht = Worksheets(”Sheet1”) 

获取 工作 表 的 行 数 


人 ee 本 ha 


wnum ngel” al ) .CurrentRegion Rows. Count 
『 六 卫 孜 星 存 局 出 际 各 录 的 条 数 


eu ; hs lnteger 


: 循环 判断 备注 内 容 是 否 为 “高 职 ” 
For 1 = 3 To rownunm 
If Cells(i, 11) =“ 离职”Then 
' 如果 高 职 ， 刚 删除 该 行 


Rewg (1). Delete 
aA=a+l 
End I 


Next 1 


步骤 05 ”编写 “判断 是 否 进行 了 离职 人 员 信 息 删 除 ”代码 。 在 “快速 删除 离职 员工 信息 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 判断 是 否 删除 了 记录 。 如 果 是 ， 则 以 对 话 框 形式 
提示 删除 记录 的 条 数 ， 反 之 提示 没有 离职 人 员 信 息 。 


"判断 是 天 进行 了 高 职 人 员 信 息 删 除 
It a «<> 0 Then 0 
MsgBox ("成 功 删 除 离职 人 人 员 信 息 ， 共 ”& a & “条 ”) 
所 已 
“MsgBox “没有 高 职员 信息 
End I 
End Sub 


步骤 06 ”为 按钮 控件 指定 宏 。 在 工作 表 中 绘制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 选中 “快速 删除 离职 人 员 资 料 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


步骤 07 ”运行 代码 删除 离职 人 员 信息 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “快速 删除 离职 人 员 信息 ”。 激 活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


”现任 职务 7 员工 纺 亏 姓名 性 别 
小 事 部 经 理 华 拘 

企划 部 经 理 
人 人事 部 职员 
企划 部 职员 
推广 部 职员 
推广 部 职员 
会 计 部 经 理 
行政 部 经 理 
| 行政 部 职 只 


2006/ 578 本 科 
2007/2/1 研究 生 
2007/2/1 太志 
2007/375| 大 专 
2007/3/5 本 科 
2007/4/12 本 科 
2007/8/20 本 科 
2007/8/20 本 科 
2007/9/20 本 科 
2007/9/20 太志 
2007/9/25 本 科 
2007/9/25 本 科 
5 | 搜 椒 部 且 2007/10/8 本 科 
技术 部 经理 2007/11/20 研究 生 


步骤 08 ”查看 删除 后 的 效果 。 系 统 自动 执行 指定 的 宏 代 码 ， 运 行 完毕 后 ， 在 工作 表 中 弹出 提示 框 ， 提 示 已 删除 4 条 离职 人 员 信 息 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


30 ”2006/5/8 本 和 010-8342012 

RE “2542121 
,Microsoft Exce| Xx 3564212 
8354521 
9456521 


1 | 
2 
3 
4 
6 
入 
8 


对 烟 烟 寺 烟 烟 寺 烟 寺 过 过 烟 烟 


押 


5485125 
5487154 
21 4567785 

确定 八 | [B245461 
5452234 
25| 200779725 | 本 | 1596454122 


对 牛牛 对 站 对 半 对 站 当 


步骤 09 ”再 次 运行 代码 。 再 次 单 击 “ 快 速 删除 离职 人 员 信 息 ” 按 钮 ， 系 统 将 会 弹出 提示 框 ， 提 示 没 有 离职 人 员 信息 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 


2007/2/1 六 写 1583504212 
oNNT IR IF 二 去 010-8354521 
Microsoft Excel XK "1359456521 

1305453o]129 


| 1365487154 
没有 声 职 人 员 信息 1324567785 


| 1Loloscd4b461 
19o0d4bcc<od 
' 1530404] 66 
ULU-86457154 
2<cUUP7 TU7 SI 直 析 | 15816542<14 


4.1.2 ”编写 代码 让 用 户 指定 删除 条 件 


上 一 小 节 中 编写 的 代码 只 能 删除 “备注 ”字段 为 “离职 ”的 员工 的 信息 ， 代 码 的 适用 范围 较 窒 ， 本 小 节 将 改进 代码 ， 根 据 用 户 自行 指定 的 条 件 来 删除 员工 信息 。 


步骤 01 ”编写 删除 指定 记录 过 程 代码 。 继 续 上 一 小 节 的 操作 ， 插 入 新 的 模块 ， 并 将 其 “ (名 称 ) ”属性 设置 为 “删除 指定 条 件 记 录 ， 然 后 在 该 模块 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 获 
取 Sheet1 工 作 表 的 行 数 与 列 数 ， 以 及 获取 用 户 指 定 的 条 件 。 


"编写 删除 指定 记录 的 过 程 
sub 删除 指证 记录 六 

Dinm Sht Ls Worksheet 

Set Sht = Worksheets (” Sheetl”) 

Dim rowrnun As ImntegeT 

Dim ColNHum As Integer 

rownun = Sht. Ranee(l’ al ) .CurrentRegion. 


Rows. Count 
i = nr Debienle CurrentReei on. 


,获取 用 户 叶 入 1 的 需要 册 除 记录 的 字段 
Din Field As String 
Din Con hs Strine 


Field = InputBox(” 博 输 全 本 让 除 记 录 本 +") 
入 需 下 TT 


Con = InputBox ("请 输 入 记录 的 


步骤 02 编写 代码 查询 符合 指定 条 件 的 记录 并 删除 。 在 “删除 指定 条 件 记 录 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 查找 符合 指定 条 件 的 员工 信息 记录 ， 然 后 删除 该 记录 ， 
并 统计 删除 的 条 数 。 


TEST 


Din a As Integer 


a= 0 
' 查找 用 户 指 定 的 字段 项 目 名 种 
For 1 = 1 To ColNum 
If Colle i) = Trin'(Field) Then 
查找 满足 条 件 的 员工 信息 记录 
For ] = 3 To 
Tf Cells'(j, (Com T 
?出 际 洪 忌 条 人 人员 至 管 记 行 数据 
Rows (j). Delete 
rn 
久 三 忆 十 二 
End If 
Next ] 
End I+i 
Next 1 


Te 
If a <» 0 Then 
' 以 对 话 框 提示 删除 的 条 数 _ 
a C* 删除 了 满足 条 件 的 员工 信息 , 共 ”& a & “条 ”) 


二 以 对 话 框 提示 和 足 条 什 上 全 
工 司 


End Sub 


知识 链接 “Trim0 通 数 的 用 法 


Trim0 函 数 用 于 去 除 指 定 字符 串 首 尾 的 空格 ， 也 就 是 前 导 空 格 和 尾随 空格 ， 其 语法 格式 为 : Trim (String) 。 


步骤 04 ”为 按钮 控件 指定 宏 。 返 回 Excel 视 图 ， 绘 制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “删除 指定 记录 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


删除 指 起 记录 | OE 


步骤 05 ”运行 删除 指定 记录 过 程 代码 。 返 回 工作 表 ， 将 按钮 控件 重 命 名 为 “快速 删除 指定 条 件 记录 ， 并 单 击 该 按钮 ， 如 下 图 所 示 ， 即 可 执行 该 按钮 对 应 的 代码 。 
A BB D E | FF 
快速 删除 离职 人 员 信息 | ”快速 删除 指定 条 件 记 录 | 。” 员 
”现任 职务 “员工 编号 ”姓名 性别 ^ 年 到 职 日 期 
人 事 部 经 理 。”N-001 华 扬 完 0 2006/5/8 
4 | 企划 部 经 理 。” N002  _ 刘 清 5 7 20077271 
人 事 部 职员 。 N-003 _ 李 静 4 2007/2/1 


企划 部 职员 。 NW-004 民 熙 3 2007/3/5 

推广 部 职员 -005 黄村 ， \ 2007/3/5 
人 JI-006 ”“_ 周 蛙 26 2007/4/12 
会 计 部 经 理 ”008 考 晴 6 2007/8/20 
行政 部 经 理 。”N-009 谢 勇 . ' 2007/8/20 
行政 部 职员 JI-ol0 者 杰 24 2007/9/20 
秘书 长 -011  _ 章 世 琳 \ 7 200779720 | 


步骤 06 ”输入 要 删除 记录 的 字段 条 件 。 在 工作 表 中 弹出 对 话 框 ， 提 示 用 户 输入 需要 删除 记录 的 字段 条 件 ， 在 文本 框 中 输入 “姓名 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


B L D 上 F G H 
员 信息 | | 快速 删除 指定 条 件 记录 。 ”员工 基本 资料 表 
工 编号 “姓名 性 别 ,年龄 ， 到 职 日 期 学历 。 联系 方式 


Eo \ Microsoft Excel 人 ee 
)03 “| 请 输入 珊 要 删除 记录 的 字段 条 件 医 564212 
004 | 一 :8354521 
005 1 j9456521 
006 | i5485125 
p08 “” 肌 原 - 5487154 
009 。 ”| 至 如 24567785 
010 “者 杰 Er ”D4 2007757201 本 科 | 1313245461 
011 刘 声 琳 | 次 27| ”2007/9/20 大专 1395452234 
0)13 沈 逻 = 25 2007/9/25 本 科 1596454122 


步骤 07 输入 要 删除 记录 的 文本 条 件 。 弹 出 下 一 个 对 话 框 ,提示 用 户 输入 需要 删除 记录 的 文本 条 件 ， 在 文本 框 中 输入 “ 何 菲 林 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


息 | [快速 删除 指证 条 件 记录 。 ”员工 基本 资料 表 

工 编 亏 ” 桂 名 性 别 年 疮 ”到 了 日 期 ”于 历 联系 方式 
华 拘 让 30 ”2006/5/8 本 科 010-8342012 
车 请 男 27 2007/2/1. 研 究 咎 | 1592542121 
| Microsoft Excel x Odele 
54521 

56521 
一 及 5125 
il1o4 
67785 
d5461 


25| 200779725 本 科 1596454122 
陈 凌 23 ”2007/9/25 本 科 010-8645754 
因由 25 2007/10/8 1581654214 


步骤 08 ”弹出 提示 框 。 系 统 自动 执行 代码 ， 执 行 完毕 后 将 弹出 提示 框 ， 提 示 用 户 删 除了 1 条 满足 条 件 的 员工 信息 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


姓名 
化 白 
刘 浦 


性 别 ”年 疮 ”到 了 日 期 罕 历 联系 方式 
30 ”2006/5/8 本 科 010-8342012 


= 

关 27 ”2007/2/1 研究 生 1592542121 
妈 nD NNTAD11 -二 去 16583S66d4212 
37 Microsoft Excel X 8354521 
妇 359456521 
EE 365485125 
女 删除 了 湛 吓 条 件 的 员工 信息 ， 共 1 条 365487154 
= 
= 
7 
志 
= 
女 


324567785 

31 3245461 

兢 定 人、 395452234 

= j96454122 

231 2007797251 下 村 1010-8645754 
25 200771078 本 科 1581654214 


姓名 ”性别 年 疮 ”到 了 日 期 学 历 ” 联系 方式 
华 招 为 30 ”2006/5/8 本 科 010-8342012 
男 ”| 27， 2007/2/1 .研究生 ， 1592542121 
1 [Ee .Microsoft Excel 
黄 登 博 樟 入 需要 删除 记录 的 字段 条 件 
周 昱 
胡 晴 
谢 田 
郝 杰 
刘 艺 琳 一 z z | 
沈 辉 E 25 2007/9/25 本 科 1596454122 
陈 识 23 2007/9/25 本 科 010-8645754 
朱 肉 虹 25 2007/10/8 本 科 1581654214| 


步骤 10 ”输入 要 删除 记录 的 文本 条 件 。 弹 出 下 一 个 对 话 框 ， 提 示 用 户 输入 要 删除 记录 的 文本 条 件 ， 在 文本 框 中 输入 “主任 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


姓名 ”性别 
华 拘 = 
对 浦 十 
李 前 女 
人 ef Microsoft Excel 


陈 直 
朱 两 虹 


姓名 ”性 别 
华 扬 
刘 浦 


烟 烟 对 亲 烟 对 酒 对 对 对 烟 关 


对 


年 此 


30 
i 
24 


He | 


Pe 
2 器 


年 而 


9 
2 


到 了 日 期 字 历 
2006/5/8 本 科 
2007/2/1 研究 生 
aN Tel 


i se i 十 击 一 市 


2007/9/25 本 科 
2007/10/8 本 和 


到 了 日 期 罕 历 
2006/5/8 本 科 
2007/2/1 研究 生 


Es i = 中 = 


Microsoft Excel ~ | 


没有 商定 条 件 约 员工 信息 


| 
£9 


二 人 


2007/9/25 本 科 
2007/10/8 本 科 


联系 方式 
010-8342012 
1592542121 
1583564212 
X 这 521 
i6521 
定 NN 35125 
| 37154 


785 
15461 
j2234 

> 和 | 22 

“010- 8645754 

1581654214 


联系 方式 
U1LU 一 8od420U1L2< 
1592D42121 
15835642<12 
010-8354921 
13594569521 
1 5004551 25 
l130654671954 
lS240017105 
13132454601 
1395452<2<34 
1553045b4122 


4.2 ”快速 查找 并 标示 所 有 符合 条 件 的 员工 联系 方式 


如 果 需 要 查找 符合 条 件 的 多 条 记录 并 显示 查找 结果 ， 虽 然 可 以 使 用 Excel 的 查找 功能 ， 但 是 它 只 能 进行 单条 件 查找 ， 查 找 结果 的 呈现 方式 有 时 也 不 友好 。 本 节 将 使 用 VBA 的 用 户 窗 体 功能 制作 较为 友好 的 
用 户 界面 ， 并 编写 代码 实现 较为 复杂 的 多 条 件 查找 。 


要 码 看 视频 


~ 实例 文件 \ 第 4 章 \ 原 始 文件 \ 快 速 查 找 符合 条 件 的 员工 联系 方式 .xlsm 
实例 文件 \ 第 4 章 \ 最 终 文件 \ 快 速 查 找 符合 条 件 的 员工 联系 方式 .xlsm 


本 小 节 将 要 设计 的 “查询 员工 联系 方式 ” 窗 体能 够 通过 员工 的 职务 、 学 历 、 性 别 、 年 龄 等 信息 来 快速 查询 员工 的 联系 方式 。 具 体操 作 方法 如 下 
插入 用 户 窗 体 。 打 开 原始 文件 ， 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (快速 查找 符合 条 件 的 员工 联系 方式 .xlsm) ”， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 用 户 窗 体 ” 命 令 ， 


如 下 图 所 示 。 


| 昌国 | 加 | 


Solver (SOLYER. ILAN) 
回电 YBAProject (FUNCEES. ILAE) 
EYBAProject (快速 查找 符合 条 件 的 员工 联 郑 言 直 ga 
日 -全 到 crosoft Excel] 对 象 查看 代码 (OO) 
一 上 | Sheetl (Sheetl) ee 
-二 | sheet2 (Shaat2) 司 。 埋 看 对 急 (B 
转 | Sheat3 (Sheet3) 


一 |] ThisWorkbook 


导 人 文件 山 . 
导出 文件 (E)... 


步骤 02 ”修改 用 户 窗 体 的 属性 。 按 F4 键 打开“ 属性 ”窗口 ,将 ”( 名 称 ) ”属性 设置 为 SearchMsg， 将 Caption 属 性 设置 为 “查询 员工 联系 方式 ”， 如 下 图 所 示 。 


Sear chise UserForm 
按 子 母 序 “” 按 分 类 序 
( 镍 称 ) Searchlse 


BackColor [| &H8000000F& 


BorderColor 国 HH30000012& : 
BorderStyle 0 一 tmBorderSty] elone 
-aptio | 查 筒 见 工 联 系 方式 

0D- tm cyclehllForms 


‘32000 


‘HBO0ODO12& 
: |223.5 
HelpContextID 0 
KeepScrollBarsVisible 3 - fmScrollBarsBoth 
Lett -3. 756 
(None) 
-— tmMousePointerDefault 


步骤 03 ”设计 用 户 窗 体 的 “查询 条 件 ”页 面 控件 。 在 用 户 窗 体 对 象 窗口 中 绘制 需要 的 控件 ， 并 按照 下 页 表 设 置 控件 的 属性 。 设 计 好 的 效果 如 右 图 所 示 。 


知识 链接 ”多 页 控件 的 功能 


多 页 控件 可 以 在 窗 体 中 显示 多 个 页 面 ， 每 个 页 面 中 可 以 放置 不 同 的 信息 或 控件 。 通 过 多 页 控件 可 以 有 效 地 利用 窗 体 中 有 限 的 空间 来 分 门 别 类 地 组 织 信息 或 其 他 控件 ， 方 便 用 户 查 阔 和 使 用 。 


控件 名 称 属性 


Ee 
dd 
EE 
ni 现任 职务 
一 
| Cepton | es 
ee ee 


序号 


en 
一 


名 称 
es 一 一 
名 称 ) 
Se 
(名 称 ) 
名 称 
a 一 


as Toc 
命令 按 (名 称 ) 
国 


步骤 04 设置 “查询 结果 ”页 面 控 件 。 切 换 至 多 页 控件 的 第 2 页 ， 绘 制 列表 框 和 命令 按钮 控件 ， 并 按照 下 表 设 置 控件 的 属性 。 设 计 好 的 效果 如 右 图 所 示 。 


知识 链接 ”列表 框 的 功能 


列表 框 用 于 显示 一 组 数据 条 目 ， 用 户 可 用 鼠标 选择 其 中 的 一 个 或 多 个 条 目 ， 但 是 通常 不 能 直接 编辑 条 目 。 当 列表 框 不 能 同时 显示 所 有 条 目 时 ， 将 自动 添加 滚动 条 ， 供 用 户 滚动 查阅 。 


控 eid a 


TT I ep 
一 生生 
命令 按钮 名 称 


控件 名 称 属性 
Ry EEC 
命令 按 馈 名 称 2 


高 手 点 拨 : 多 页 控件 的 使 用 范围 


件 不 能 接收 任何 用 户 输入 ， 只 是 将 一 个 用 户 窗 体 拓 展 成 了 几 个 用 户 窗 体 。 若 窗 体 需要 用 到 的 控件 很 多 ， 窗 体 的 面积 又 没有 那么 大 ， 或 者 同一 窗 体 中 实现 的 功能 之 间 有 些 差别 ， 需 要 被 隔 开 ， 则 适 


4.2.2 ”编写 用 户 窗 体 控件 的 事件 代码 


设计 好 “查询 员工 联系 方式 ” 窗 体 后 ， 接 着 需要 编写 用 户 窗 体 控 件 对 应 的 事件 代码 ， 才 能 实现 快速 查询 员工 联系 方式 的 功能 。 具 体操 作 如 下 。 


步骤 01 定义 数组 和 变量 。 继 续 上 一 小 节 的 操作 ， 按 F7 键 打开 “searchMsg (代码 ) ”窗口 ， 在 其 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 定义 数组 (用 于 保存 查找 结果 ) 及 量 (用 于 保 
存 用 户 输入 的 查找 条 件 ) 。 


定义 数组 保存 查找 结 来 
Private Results (100, 2) As String 
Fo num hs Integer | 

定义 庚 量 条 存 用 户 输 闪 的 查找 条 件 
Public UserPost Ls String 

Public UserXuli As Strine 


Public UserSex hs String 
Public UigeeNin hs Inteeer 
Public UigeNMax is Integer 
Public UserNumber hs Stringe 


步骤 02 编写 初始 化 用 户 窗 体 的 代码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 获取 要 查询 的 工作 表 中 数据 区 域 的 行 数 ， 并 声明 变量 gnums， 用 于 保存 “ 现 
任职 务 ” 字 段 唯一 值 的 个 数 。 


UserFors . Imi tiali Ie 


初始 化 用 户 窗 体 
Private Sub UserForn Initializet) 
初始 化 现任 职务 复合 框 的 初始 值 
Din fi elds (100) hs Strineg 
Dinm Sht As Worksheet z 
Set Sht = Worksheets( Sheetl1’) 


Dim rowNum As Integer 

rowNun = Sht. Raneg et al CurrentRegion.Rows.Count 
声明 变量 存储 字段 唯 ~ 值 的 个 数 

Dim gnums AS Integer 

enums = 1 

Dim alm As String 


知识 链接 ”Initialize 事 件 
Initialize 事 件 发 生 在 加 载 对 象 之 后 ， 显 示 对 象 之 前 。 通 常 在 Initialize 事 件 的 处 理 过 程 中 对 应 用 程序 的 变量 或 用 户 窗 体 的 控件 进行 初始 化 ， 例 如 ， 为 变量 指定 初始 值 ， 调 整 控 件 位 置 或 大 小 等 。 


步骤 03 ”为 数组 赋值 并 将 其 赋值 给 复合 框 控 件 。 在 “searchMsg (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 为 fields0 数 组 赋值 ， 并 将 其 赋值 给 复合 框 控 件 。 


| UserFors 四 ITnaitialize 


逢 环 访问 指定 区 域 中 的 每 一 个 单元 格 
For 1 = 3 To TowNunm 
aim = Cells(i, 1) 
" 判 岂 其 十 否 已 经 被 记录 
If Not Have(aim, fields, gnums) Then 
fields (emums) = ain 
snums = gnums + 1 
End I 
Next 1 


gnuns = gnmms — 1 
将 数组 值 设置 为 Postl 复 合 框 的 下 拉 列 表 清 单 
Postl.List = fields 

Postl.ListIndex = 0 


[VserFormn | Initialire 


初始 化 复 选 框 控件 值 
Post, Value = False 
Sex. Yalue = False 
Mze. Value = False 
OnlyNun. Value = False 
Man. Value = True 


"设置 控件 初始 状态 为 不 可 用 
Postl. Enabled = False 
Nan. Enabled = False 
VYoman. Enabled = False 
Ninige. Enabled = False 
Maxige. Enabled = False 
NumberOne. Enabled = False 
End Sub 


步骤 05 ” 自 定 义 Have() 函 数 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 定 义 了 一 个 Have() 函 数 ， 用 于 检查 指定 内 容 是 否 存 在 于 数组 中 。 如 果 存 在 ，Have() 国 数 的 返回 
值 为 True; 反之 ， 则 为 False。 


"检查 指定 内 容 古 否 存 在 于 数组 中 
Function Havekainm hs Strine, fieldsQ) as _ 
Strine, enums hs Inteeer) As Boolean 
Have = False 
For 1 = 1 To enums 
If fields(i) = alnm Then 
Have = True 
Exit Funct1on 


End If 
Next 1 
End Function 


步骤 06 编写 修改 “现任 职务 ” 复 选 框 后 自动 执行 的 代码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 Post 复 选 框 的 值 是 否 为 真 。 如 果 为 假 ， 则 Post1 复 合 杠 
为 不 可 用 状态 ; 反之 ， 则 为 可 用 状态 。 


一口 号 


TREE ER 
Private Sub Post Ch ng 
' 根据 现任 职务 复 选 框 的 内 容 进行 判断 
If Post. Value = False Then 
Postl. Enabled = False 
Else 
Postl. Enabled = True 
End I 


End Sub 


步骤 07 编写 修改 “性 别 ” 复 选 框 后 自动 执行 的 代码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 判断 Sex 复 选 框 的 值 是 否 为 真 。 如 果 为 假 ， 则 Man 和 Woman 选 


项 按钮 为 不 可 用 状态 ; 反之 ， 则 为 可 用 状态 。 


"修改 性 别 复 选 杠 后 自动 执行 
Private Sub Sex_Change 0 
It Sex. Value = False Then 
Man. Enabled = False 
Woman. Enabled = False 
Else 
Man. Enabled = True 
VYoman. Enabled = True 
End I 
End Sub 


步骤 08 编写 修改 “年 龄 ” 复 选 框 后 自动 执行 的 代码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 Age 复 选 框 的 值 是 否 为 真 。 如 果 为 假 ， 则 MinAge 和 
MaxAge 文 本 框 为 不 可 用 状态 ; 反之 ， 则 为 可 用 状态 。 


修了 必 年 部 复 选 框 后 目 动 执行 
Private Sub hge ChangeQ 
It hge. Value = False 
Ninige. Enabled = 

Maxige. Enabled 


Else 
Minige. Enabled = 
Maxige. Enabled 
End It+t 
End Sub 


步骤 09 ”编写 修改 “身份 证 号 码 ” 复 选 框 后 自动 执行 的 代码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 OnlyNum 复 选 框 的 值 是 否 为 真 。 如 果 为 假 ， 则 
NumberOne 文 本 框 为 不 可 用 状态 ; 反之 ， 则 为 可 用 状态 。 


号 口中 日 | 蕴 : 
' 修改 身份 证 亏 硝 复 选 框 后 上 自动 执行 
Private Sub Onlylunmn Chanze i) 
It OnlyNum. Value = False Then 
NumberOne. Enabled = False 
Else 
NumberOne. Enabled = True 
End I+t 
End Sub 


步骤 10 ”编写 “确定 ”按钮 对 应 的 事件 代码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 判断 用 户 是 否 一 个 条 件 都 没有 设置 及 判断 用 户 输入 的 内 容 是 否 无 误 。 


" 确定 按钮 对 应 的 事件 过 [和 人 三 本 
Private Sub OE_Click 避 

判断 用 户 是 僚 一 个 条 件 都 没有 先 

If Post, Value = False Bnd XuLi.Value = °°” 
And Sex. Value = False _ 
Aind hge. Yalue = False 
And OnlyNun. Value = False Then 
MsgBox “请 至 少 选择 一 项 条 件 ” 
Exit Sub 


End I 

剂 断 用 户 答 六 的 内 容 是 否 无 翅 

If GetValue = False Then 
sgBox“ 输 入 内 容 无 法 识别 
Exit Sub 

End I 


| 


步骤 11 ”查找 符合 条 件 的 信息 并 赋值 给 数组 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 查找 符合 条 件 的 员工 信息 ， 并 将 查找 到 的 员工 姓名 、 联 系 方式 赋值 给 数 
组 。 


Din Sht is Worksheet : 
Set Sht = YWorksheets(” Sheetl1”) 
Din TowNunm hs Integer 
rowNun = Sht.Raneet’ Al1’).CurrentReeion. Rows.Count 
Din row As Integer _ 
,各 天 漳 癌 卫 作 于 销 和 一 -和 
For row = 3 lo row 
"检查 是 否 符 车 条件 
If CheckPost (Sht.Cellst(row, 1)) = True hnd 
CheckXuli (Sht. Cells (row, 7)) = True and _ 
Re Cellstrow, 4)) = True And 
ckige (sht. Cells (row, 5)) = True hnd _ 
ckNum (Sht. Cells (row, 10) = True Then 


Roscl ts Crum 1) = sht. Cells (row, 3) 
Results (num, 2) = Sht.Cells (row, 8) 
mm = mu + 1 
End I+t 
Next row 
num = num — 1| 


步骤 12 ”判断 是 否 找 到 结果 并 去 除数 组 中 的 多 余部 分 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 判断 是 否 找 到 了 结果 ， 然 后 去 除数 组 中 多 余 的 部 分 。 


尖 断 是 否 找到 了 结果 
= ?六 宫 到 符 会 条件 的 结果 
| ResultList. Clear 
上 


F 共 找到 ”+ CStr (num) +“ 项 结果 ” 
! 下 隐 数组 中 参 余 的 部分 


ReDim result(num, 2) As Strine 


Dim index As Integer 
ResultList. ColumnCount = 3 
result(0，1) =“ 员 工 姓名 ” 
result (0, 2) "联系 方式 ” 


知识 链接 ”静态 数组 与 动态 数组 
静态 数组 是 指 大 小 已 定 的 数组 ， 其 大 小 是 在 声明 数组 时 确定 的 ; 动态 数组 是 指 能 够 改变 大 小 的 数组 ， 可 使 用 ReDim 语 和 句 重 置 数组 的 大 小 。 


步骤 13 ”将 查找 到 的 结果 重新 赋值 给 新 数组 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 用 于 将 查找 到 的 结果 重新 赋值 给 新 数组 ， 并 将 结果 显示 在 窗 体 中 。 


ra 一 Ix 


i 

` 将 先 副 锋 得 有 查找 簿 来 周 给 半数 组 

For index = 1 To nun 
resulttindex, 1) = Results (lindex, 1) 
result(index, 2) = Results (index, 2) 

Next lndex : 

' 将 结果 显示 在 窗 体 中 

ResultList.ListQ) = result0 

End If 
End sub 


步骤 14 自 定义 GetValue() 函 数 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 获取 用 户 输入 的 现任 职务 和 学 历 条 件 。 


(ve 
"月 定 疼 国 数 锋 职 查找 杀 件 
Function CetValue hs Boolean 

On Error bolo er : 

' 获取 用 户 输 入 的 现任 职务 条 件 

It Post,. Value = True Then 
UserPost = Postl. Yalue 


End I 

获取 用 户 和 输入 的 字 历 条 件 

If XuLi.Value >” ”Then 
UseTrXuli = XuLi. Yalue 

End I 


步骤 15 ”获取 用 户 输入 的 性 别 、 年 龄 条 件 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 将 用 户 选择 的 性 别 及 年 龄 赋值 给 相应 的 公共 变量 。 


UserSex = 
了 I 


路 取 用 户 答 入 的 年 龄 条 件 
Ift hge.Value = True Then 
UigeMin = i Valuej 
UAgeMax = CInt(Naxage.Yalue) 
End I 


人 
站 Sex. Yalue = True Then 
It Man. Enabled = True Then 
UserSex =“ 男 ” 
End I 
If Tt True Then 


步骤 16 ”获取 用 户 输入 的 身份 证 号 码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 将 用 户 输入 的 身份 证 号 码 赋值 给 公共 变量 UserNumber， 并 设置 函数 的 返回 值 。 


获取 用 户 输 六 的 身份 证 亏 码 | 
It OnlyNunm. Value = True Then 
UserNunber = TrinmtNunberone. Yalue) 
End I 
CetValue = True 
Exit Function 
er : Getyalue = False 
End Functl on 


步骤 17 自 定 义 检测 用 户 输入 的 现任 职务 是 否 存 在 的 函数 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 判断 是 否 设置 了 现任 职务 条 件 。 如 果 已 设置 ， 则 检测 用 户 输 


入 的 条 件 是 否 存 在 。 如 果 存 在 ， 则 函数 返回 True。 


gett tL hs ES As Boolean 
It Post.Value = False Then 
CheckPost = True 
“Exit Function 
End I+i 
On Error Resume Next 
Din he. hs Stringe 
resul t = CStr Fain, Value) 
"与 用 户 输 入 的 条 件 比较 
It result = UserPost Then 
CheckPost = True 
Exit Funct1lon 
End If 
CheckPost = False 
End Functlon 


步骤 18 自 定 义 检测 用 户 输入 的 学 历 是 否 存 在 的 函数 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 检测 是 否 输入 了 学 历 条 件 。 如 果 已 输入 ， 则 判断 是 否 存 在 符合 条 


件 的 数据 。 如 果 人 存在 ， 则 函数 返回 True。 


- a 重申 友 


一 


Function CheckYXuli (aim As Range) As Boolean 

If XuLi.Value = “” Then 
CheckXull = True 
Ee Funct1lon 

End I 

匠 用 户 输入 的 条 件 比较 

On Error Resume Next 

Dim result As Strine 

result = CStriain. Yalue) 

It result = Useriull Then 
CheckXull = True 
Exit Funct1lon 

End I 

CheckXuli = False 


End Funct1lon 


步骤 19 ” 自 定 义 检测 用 户 选 择 的 性 别 是 否 存 在 的 函数 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 检测 是 否 选 择 了 性 别 条 件 。 如 果 已 选择 ， 则 判断 是 否 存在 符合 条 


件 的 数据 。 如 果 存 在 ， 则 函数 返回 True。 


上 | CheckSer 


"检测 用 已 输 六 的 性 别 杀 件 
Function CheckSex (ainm as Range) As Boolean 
If Sex.Value = False Then 
CheckSex = True 
Exit Functlon 


End I 

与 用 户 和 输入 的 条 件 比 园 

Un Error Resume Next 

Dim result hs String 

result = CStr (ainm. Yalue) 

If result = UserSex Then 
CheckSex = True 
Exit Funct1lon 

End I 

CheckSex = False 

End Functi on 


步骤 20” 自 定义 检测 用 户 输入 的 年 龄 是 否 存 在 的 函数 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 检测 是 否 输入 了 年 龄 条 件 。 如 果 已 输入 ， 则 判断 是 否 存 在 符合 条 
件 的 数据 。 如 果 存 在 ， 则 函数 返回 True。 


“检测 用 户 输入 的 年 龄 是 否 存在 。 
Function Checkagekainm hs Range) As Boolean 
It Age,. Value = False Then 
Checkaege = True 
Eat Function 
End I 
医用 户 输入 的 年 龄 条 件 进 行 比 园 
On Error Resume Next 
Dim result hs Integer 
result = CInt'(ainm. Yalue) 
If result »= Uigellin And result 《= UbzeNMax Then 
Checkhige = True 
Exit Functlion 
End I 
Checkiize = False 
End Functlon 


知识 链接 “逻辑 运算 符 的 用 法 
Excel VBA 中 的 还 辑 运算 符 有 And、Of、Not、Eqv、Imp、Xor， 运 用 这 些 运算 符 可 以 对 两 个 表达 式 进行 远 辑 连接 。 例 如 ， 步 骤 20 中 的 语句 “If result>=UAgeMin And result<=UAgeMax Then” 表 示 当 And 运 
算 符 两 边 的 表达 式 结果 均 为 True 时 ， 运 行 IE…End If 间 的 语 自 。 


步骤 21 自 定义 检测 用 户 输入 的 身份 证 号 码 是 否 存 在 的 遂 数 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 检测 是 否 输 入 了 身份 证 号 码 。 如 果 已 输入 ， 则 判断 是 否 存 
在 符合 条 件 的 数据 。 如 果 存 在 ， 则 函数 返回 True。 


"检测 用 户 输 六 的 员工 身份 证 亏 码 是 否 存 在 
Function CheckNunmkainm Ls Range) As Boolean 
If OnlyNun. Yalue = False Then 
CheckNunm = True 
Exit Functlon 


End I 

' 与 用 户 输 入 的 身份 证 亏 码 进行 比较 

Un Error Resume Next 

Dim result As Strine 

result = Trim'(CSstr (ain. Yalue)) 

It result = UserNumber Then 
CheckNum = True 
Exit Funct1lon 

End I+i 

CheckNHum = False 

End Functi on 


步骤 22 设置 “清除 ”按钮 和 两 个 “取消 ”按钮 对 应 的 事件 代码 。 在 “SearchMsg (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 设置 第 1 页 和 第 2 页 中 的 “取消 ”按钮 对 应 的 事件 ， 以 
及 第 2 页 中 的 “清除 ”按钮 对 应 的 事件 。 


| 已 | 回 | 本 


第 1 页 中 的 取 诊 按 旬 对 应 的 事件 过 程 代 三 
Private Sub Cancell_ Click ©) 
"天 财 用 尸 茵 体 
Me. Hide 
End sub = 
第 2 由 中 的 清除 控 香 对 应 的 事件 过 竹 
Private Sub ClearButton ClickO 
“ResultList.Clear 


] -209 
第 2 帝 中 和 取消 按 租 对 应 的 事件 过 程 代码 
Private sub Cm the 
Ne. Hide 
End Sub 


步骤 23 编写 调用 SearchMsg 用 户 窗 体 的 代码 。 插 入 模块 ， 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 调用 SearchMsg 用 户 窗 体 。 


查询 联系 方式 y 


"调用 查找 员工 联系 方式 Searchitsg 用 户 窗 体 避 
sub 查 伺 联系 方式 站 

Dim nyForm Ls SearchMse 

Set myForm = New Searchlse 

nyFornm. Show 

Set myForm = Nothine 
End sub 


知识 链接 “Clear 方法 的 功能 及 用 法 


Clear 方 法 用 于 从 一 个 对 象 或 集合 中 删除 所 有 对 象 。 对 于 多 页 控件 或 TabSttip 控 件 ，Cleat 方 法 删除 单个 页 或 标签 ; 对 于 列表 框 或 复合 框 ，Clear 方 法 删除 列表 中 所 有 的 项 ; 对 于 Conttols 集 合 ，Cleat 方 法 删除 
在 运行 时 用 Add 方 法 创建 的 控件 。 如 果 对 设计 时 创建 的 控件 使 用 Cleat 方 法 ， 则 会 出 错 。 


4.2.3 ”运行 代码 查询 员工 联系 方式 


设计 完 用 户 窗 体 并 编写 相应 的 事件 代码 后 ， 就 可 运行 代码 来 查询 员工 联系 方式 。 具 体操 作 如 下 。 


步 又 01 ”为 按钮 控件 指定 宏 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 绘 制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 查 询 联 系 方式 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “确定 ” 按 
钮 。 


步骤 02 ”执行 代码 。 返 回 工作 表 ， 将 按钮 控件 重 命名 为 “查询 联系 方式 ”， 激 活 并 单 击 该 按钮 ， 即 可 开始 执行 “查询 联系 方式 ”过 程 代码 ， 如 下 图 所 示 。 


现任 职务 ”员工 姓名 性别” 年 蔡 
人 事 部 经 理 | 华 掏 30 
企划 部 径 理 -002 刘 清 27 


24 
企划 部 职员 

推广 部 了 所 
推广 部 职员 
推广 部 经 理 
会 计 部 经 理 
1 征 政 部 经理 
行政 部 职员 
秘书 长 

14 | 接待 部 经 理 
15 ,技术 部 职员 


步骤 03 ”不 输入 查询 条 件 直 接 查 找 。 弹 出 “查询 员工 联系 方式 ”对 话 框 ， 在 “查询 条 件 ” 选 项 卡 中 不 设置 任何 查询 条 件 ， 直 接 单 击 “确定 ”按钮 ， 如 下 左 图 所 示 。 


= 
6 
上 
5 
3 


烟 寺 涯 烟 烟 半 半 烟 过 寺 尖 烟 烟 上 


查询 条 件 | 查询 结果 | 


步骤 04 ”弹出 提示 框 。 程 序 执行 后 ， 会 弹出 提示 框 ， 提 示 用 户 至 少 要 选择 一 项 条 件 ， 单 击 “ 确 定 ”按钮 ， 如 下 右 图 所 示 ， 即 可 重新 设置 查询 条 件 。 


一 一 一 一 一 


步骤 05 ”通过 现任 职务 查询 。 在 “查询 条 件 ” 选 项 卡 下 勾 选 “现任 职务 ” 复 选 框 ， 单 击 其 右 侧 的 下 三 角 按 钮 ， 在 展开 的 列表 中 单 击 “ 技 术 部 职员 ”选项 ， 如 下 图 所 示 。 


查询 条 件 | 查询 结果 | 


步骤 06 弹出 提示 框 。 单 击 “ 确 定 ” 按 钮 ， 系 统 自动 执行 按钮 对 应 的 事件 代码 ， 执 行 完 毕 后 弹出 提示 框 ， 提 示 用 户 共 找 到 5 项 结果 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


步骤 07 ”查看 查询 结果 。 单 击 “ 查 询 结果 ”标签 ， 切 换 全 “查询 结果 ”选项 卡 ， 在 列表 框 中 列 出 了 符合 查询 条 件 的 员工 姓名 和 联系 方式 ， 如 下 图 所 示 。 


i (9 4 理 i 
lb96dbdl2e 
010-8645754 
1581654214 
13245498 176 
l320248715 


步骤 08 ”设置 查询 的 性 别 条 件 。 在 “查询 条 件 ” 选 项 卡 下 勾 选 “性 别 ” 复 选 框 ， 选 中 “ 女 ” 单 选 按钮 ， 单 击 “确定 ”按钮 ， 如 下 图 所 示 。 


查询 条 件 | 查询 结果 | 


步骤 09 ”弹出 提示 框 。 此 时 弹出 提示 框 ， 提 示 用 户 共 找到 2 项 结果 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


件 | 查询 结果 | 


| Microsoft Excel XX 


步骤 10 ”查看 查询 结果 。 单 击 “查询 结果 ”标签 ， 切 换 至 “查询 结果 ”选项 卡 ， 可 以 看 到 符合 查询 条 件 的 员工 姓名 和 联系 方式 被 列 出 来 了 ， 如 下 图 所 示 。 


查询 员 
查询 条件” 查 1 


~ 
1324549878 


步骤 11 通过 年 龄 条 件 查 询 。 在 “查询 条 件 ” 选 项 卡 下 ， 取 消 勾 选 “性 别 ” 复 选 框 , 勾 选 “年 龄 ” 复 选 框 ,在 “最 小 值 ” 和 “最 大 值 ”文本 框 中 分 别 输入 “二 十 ”和 “二 十 五 ”， 单 击 “ 确 定 ” 按 钮 ， 


如 下 图 所 示 。 


查 词 条 件 | 查询 结果 | 


Microsoft Exce| XK 


措 入 内 容 无 法 识别 


步骤 13 ”重新 输入 年 龄 条 件 。 返 回 “ 查 询 员 工 联系 方式 ”对 话 框 ,在 “最 小 值 ” 和 “最 大 值 ”文本 框 中 重新 输入 “20” 和 “25”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


查 调 条 件 | 查询 结果 | 


步骤 14 ”弹出 提示 框 。 程 序 执行 完毕 后 会 弹出 提示 框 ， 提 示 用 户 共 找到 4 项 符合 条 件 的 结果 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


步骤 15 ”查看 查询 结果 。 切 换 至 “查询 结果 ”选项 卡 ， 可 看 到 在 列表 框 中 列 出 了 符合 查询 条 件 的 员工 姓名 和 联系 方式 。 若 用 户 需要 删除 列表 框 中 的 结果 ， 单 击 “ 清 除 ” 按 钮 即 可 ， 如 下 图 所 示 。 


查 鹿 条 件 “查询 结果 | 
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步骤 16 ”查看 清除 效果 。 单 击 “ 清 除 ”按钮 后 ， 列 表 框 中 的 数据 即 被 删除 了 。 如 果 用 户 需要 关闭 “查询 员工 联系 方式 ”对 话 框 ， 单 击 “ 取 消 ” 按 钮 即 可 ， 如 下 图 所 示 。 


查询 条 件 “查询 结果 | 


步骤 17” 按 身份 证 号 码 查询 。 在 “查询 条 件 ” 选 项 卡 下 ， 勾 选 “ 身 份 证 号 码 ” 复 选 框 ， 在 其 下 的 文本 框 中 输入 需要 查找 的 身份 证 号 码 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


词 条 人 忻 | 查询 结 二 果 | 


查询 条 件 | 查询 结果 


[现任 职务 Ee Microsoft Excel 
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步骤 19 查看 查询 结果 。 单 击 “ 查 询 结果 ”标签 ， 切 换 至 “查询 结果 ”选项 卡 ， 可 看 到 结果 列表 为 空 ， 如 右 图 所 示 。 


查询 条 件 。 查 鹿 结 


4.3 快速 得 找 / 著 换 满足 条 件 的 数据 


本 节 将 使 用 VBA 程 序 代码 实现 数据 的 精确 查找 /替换 和 模糊 查找 /替换 功能 ， 方便 用 户 快速 修改 数据 。 


要 码 看 视频 


~ 


A : 实例 文件 \ 第 4 章 \ 原 始 文件 \ 快 速 查找 与 替换 满足 条 件 的 数据 .区 sm 


: 实例 文件 \ 第 4 章 \ 最 终 文 件 \ 快 速 查找 与 替换 满足 条 件 的 数据 区 sm 


为 了 让 用 户 在 进行 查找 或 替换 时 获得 良好 的 操作 体验 ， 首 先 需要 设计 一 个 “查找 /替换 ”用 户 窗 体 。 具 体操 作 如 下 。 


又 01 ”插入 并 修改 窗 体 属性 。 打 开 原 始 文件 ， 进 入 VBE 编 程 环境 ， 插 入 用 户 窗 体 。 按 F4 键 ， 打 开 “ 属 性 ”窗口 ， 将“ (名 称 ) ”属性 设置 为 Replace1， 将 Caption 属 性 设置 为 “查找 /替换 ”， 如 下 图 
所 示 。 


Replacel UserFornm 


按 字母 所 “ 按 分 类 序 


(名称) Repl: acel 

BackColor 0 #8000000F& 

Bor derCol or 国 #H30000012& 

Bor derS 0 - fmBorderStyleNone 
Capt1 on 查找 /车 换 

Cycle D - fnCycl ehllForms 
DrawButter 

Enabled 

Font 

ForeColor 国 HB0000012& 

Hel zht 219. 15 

HelpContextIn | 0 
KeepScrollBarsVisible 3 — fmScrollBarsBoth 
Lett | (3. 15 


步骤 02 设计 “查找 ”页 面 控 件 。 在 “查找 /替换 ”用 户 窗 体 对 象 窗口 中 ， 按 照 下 表 的 控件 类 型 及 属性 添加 控件 。 设 计 完 成 后 的 “查找 ”页 面 效 果 如 下 图 所 示 。 


控件 名 称 


属性 值 
| 
2 | 杭 和 | GCapton | 志 找 内 容 
Es re Seod 

hi 
一 和 em | es 
7 | 有 检 | (名 称 | AddressListi 
8 | 本 答 | Captor | 过 找 到 的 入 
9 | 纪检 | (名称 | VaueListi 


知识 链接 ”框架 控件 的 功能 及 用 法 


框架 控件 用 于 创建 功能 上 或 视觉 上 的 控件 组 。 框 架 中 的 所 有 选项 按钮 是 互 斥 的 ， 所 以 可 用 框架 创建 选项 组 ， 也 可 用 框架 将 关系 密切 的 控件 组 合 起 来 。 例 如 ， 在 处 理 顾客 订单 时 ， 可 用 框架 将 顾客 的 姓 
名 、 地 址 和 账号 组 合 在 一 起 。 此 外 ， 还 可 用 框架 创建 切换 按钮 组 ， 但 切换 按钮 不 是 互 斥 的 。 框 架 的 默认 事件 是 Click 事 件 。 


步骤 03 ”设计 “ 奉 换 ”页 面 控 件 。 切 换 至 “替换 ”选项 卡 ， 按 照 下 表 的 控件 类 型 及 属性 添加 控件 。 设 计 完 成 后 的 “替换 ”页 面 效果 如 右 图 所 示 。 


控 Lana 

wis 
| | Cepton | 区 换 结果 
5 | 标签 | ”Capton | 单元 客 位 置 | 
6 | 列表 框 ”| (名称) | AddressList2 
7 | 机 稚 | Capton | 蔡 次 X 值 | 
8 | 列表 框 | (4% 称 | VaveList2 | 


4.3.2 ”为 控件 添加 对 应 的 事件 代码 


设计 好 “查找 / 蔡 换 ”用 户 窗 体 后 ， 接 着 需要 为 窗 体 中 的 控件 编写 对 应 的 事件 代码 ， 才 能 实现 窗 体 的 功能 。 具 体操 作 如 下 。 


步骤 01 编写 “全 部 查找 ”按钮 对 应 的 事件 代码 。 继 续 上 一 小 节 的 操作 ， 右 击 用 户 窗 体 Replace1， 在 弹出 的 快捷 菜单 中 单 击 “ 查 看 代码 ”命令 ， 在 打开 的 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 。 该 代码 
段 首 先 定 义 了 一 些 数组 和 全 局 变量 ， 用 于 存储 查找 到 和 茶 换 后 的 单元 格 地 址 及 值 ， 随 后 是 Search1_Click(0 过 程 的 第 1 部 分 代码 。 


正义 数组 变 台 保 行 查 找 和 首 了 损 的 单元 格 位 是 及 六 
Dim Searchhiddress (100) Bis Strine 
Dim SearchResults (100) As Strine 
Dim RepAddress (100) hs String 
Dj RepResults (100) hs _ String 
' 定 尺 变革 num 存 悄 数 组 的 个 数 
Din num As lnteger z 
全 部 重 找 按钮 对 应 甩 事 什 代 硝 
Private Sub Searchl Click 
Dim Sht As Worksheet 
Set Sht = Worksheets(”sS 
定义 变 量 保 作 Sfe0ee 全 作 黑 伏 各 娄 和 列 数 
Dim RowNunm As Integer 
Dim Col hs Integer 
RowHNun = Sht. Range(l’ al ) CurrentRegion.Rows.Count 
Col = Sht. Ranee(’ Al1’).CurrentRegion.Columns. Count 


步骤 02 ”查找 符合 条 件 的 内 容 ， 将 其 单元 格 地 址 与 值 赋 给 数组 变量 。 在 “Replace1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 是 Search1_Click0 过 程 的 第 2 部 分 代码 ， 主 要 使 用 循环 语 
句 循环 访问 工作 表 中 的 单元 格 ， 将 符合 条 件 的 内 容 及 相应 的 单元 格 地 址 赋 给 相应 的 数组 。 


定 头 要 重 和 存 情 用 户 袜 入 的 得 找 骨 容 
Dim SearchN As String 
eager = SearchText. Value 


革 煌 站 守 内 容 是 页 存在 若 存 在 则 将 相应 的 单元 格 和 值 
og 3 是 Integer 
For 1 = 3 To Se 
For ] = 1 To Col 
If Trin(Cstr(Cells(i, D7)) = 
Trin(CStr (SearchN)) Then 
Searchhddress (num) = “$” + ColH(j) 
十 “下 + CStr(i) 
SearchResults num) = Cells(i, i) 
“nmum = num + 1 
End If 
Next ] 
Next 1 
nm= mum 一 1 


知识 链接 ”声明 全 局 类 型 的 数组 变量 
在 Sub 语 句 之 前 使 用 Dim 语 句 声明 的 数组 变量 为 全 局 变量 。 全 局 变量 能 在 本 模块 的 所 有 过 程 中 使 用 。 


步骤 03 ”判断 是 否 找 到 符合 条 件 的 内 容 。 在 “Replace1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 是 Search1_Click0 过 程 的 第 3 部 分 代码 ， 用 于 判断 是 否 找 到 符合 条 件 的 内 容 。 如 果 已 
找到 ， 就 去 除数 组 中 的 多 余部 分 。 


| 外 -是 = 


人 i 


It rum 
ee “ 泪 消 找到 符合 条 件 的 内 容 | 


Exit Sub 
MsgBox “ 共 查找 到 ”+ Cstr (nun) + “项 符合 条 件 的 内 容 ” 
于 除数 组 中 多 余 的 部 分 


ReDim Searchad(nun -— 1) ks StTring 
ReDim Searchre (nun — 1) hs Strine 
For 1 1 To num 
me et - 1) = Searchiddress (i) 
Searchre(i - 1) = SearchResults (i) 
Next 1 


Els 


End I 


步骤 04 ”判断 是 否 找 到 符合 条 件 的 内 容 。 在 “Replace1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 是 Search1_Click0 过 程 的 第 4 部 分 代码 ， 用 于 将 查找 到 的 结果 显示 在 “单元 格 位 
置 ” 和 “查找 到 的 值 ”列表 框 中 。 


Fa 33 


人 中 工 作 表 中 第 一 个 ; 一 一 一 


1m a Ls Strine 

= Searchadto) 
t. Ranee (a). Select 
9 1; 入 和 二 扩 到 的 信 列 末 和 中 
hddressListl.List = Searchad 
hddressListl.ListIndex = 0 


ValueListl.List = Searchre 
YalueListl.ListIndex = 0 
End Sub 


高 手 点 拨 : 列表 框 控 件 内 容 的 设置 


列表 框 控件 的 内 容 由 其 List 属 性 决定 ， 为 List 属 性 设置 对 应 的 数组 即 可 改变 列表 框 控件 的 内 容 。Seatch1_Click0 过程 中 的 SeatchAddress、SeatchResults 数 组 虽然 保存 有 查找 到 的 结果 ， 但 是 其 中 有 很 多 内 容 是 
多 余 的 。 为 了 将 这 些 多 余 的 数据 删除 ， 该 过 程 中 特别 声明 了 Seatchad 和 Seatchte 动 态 数 组 ， 其 中 的 内 容 就 是 SeartchAddress 和 SeatchResults 数 组 中 有 意义 的 内 容 ， 也 就 是 用 户 需 要 的 查找 结果 。 


步骤 05” 自 定义 函数 获取 对 应 列 的 列 号 字母 。 在 “Replace1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 使 用 Mid0 函 数 在 指定 字符 串 中 从 指定 位 置 截取 指定 个 数 的 字符 。 


| 


" 狭 取 单元 格 的 列 亏 字母 
Function ColH'(a hs Integer) 

ColH = Mid(” ABCDEFGHI JELMMNOPQRSTUVYXYZ”, a, 1) 
End Function 


步骤 06 编写 多 页 控件 第 2 页 中 “全 部 替换 ”按钮 对 应 的 事件 代码 。 在 “Replace1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 是 RepButtons_Click(0 过 程 的 第 1 部 分 代码 ， 主 要 用 于 蔡 换 
查找 到 的 结果 值 ， 并 将 其 赋值 给 相应 的 数组 。 


"全 部 普 换 按钮 对 应 的 事件 代码 
Private Sub RepButtons Click0) 
Dim Address hs Strine 
ReDim RepResultsl (num) As Strine 
ReDim Rephddresses (num) A&s Sn | 
' 激活 查找 到 的 单元 格 位 芋 ， 将 查找 和 天 的 内 容 葵 换 为 需要 的 值 


For 1 = 1 To num z 
Address = Searchhiddress (i) 
Range (Address) = ReplaceText. Value 


' 将 莹 换 后 的 单元 格 位 置 和 值 同 给 相应 的 数组 变量 

RepResultsl(i - 1) = ReplaceText,. Value 

Rephiddresses (i - 1) = Searchiddress (1) 
Next 1 


重点 语法 与 代码 剖析 : Mid0 遂 数 的 用 法 

Mid0 函 数 用 于 在 指定 字符 串 的 指定 位 置 截取 指定 数量 的 字符 。 其 语法 格式 为 : Mid (string，start[，length]) 。 其 中 ，stting 是 必需 参数 ， 用 于 指定 字符 事 表 达 式 ， 以 从 中 取出 字符 。 如 果 stting 包 含 Null， 
将 返回 Null。start 是 必需 参数 ， 其 数据 类 型 为 Long， 表 示 string 中 被 取出 的 字符 的 位 置 。 如 果 start 超 过 string 的 字符 数 ， 将 返回 零 长 度 字符 串 〈"") 。length 是 可 选 参 数 ， 其 数据 类 型 为 Variant (Long) ， 表 示 要 取 
出 的 字符 数 。 如 果 省 略 或 length 超 过 string 的 字符 数 ( 包 括 start 处 的 字符 ) ， 将 返回 stting 中 从 statt 到 尾 端的 所 有 字符 。 如 果 想 知道 stting 的 字符 数 ， 可 使 用 Len0 函 数 。 

步骤 07 ”将 替换 后 的 结果 显示 在 列表 框 中 。 在 “Replace1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 是 RepButtons_Click0 过 程 的 最 后 一 部 分 代码 ， 用 于 将 数组 中 存储 的 替换 后 的 单元 
格 地 址 和 值 显示 在 列表 框 中 。 


RepButtons : 


将 登 换 后 的 单元 格 位 置 和 值 显 示 在 相应 的 列表 框 中 
hddressList2.List = Rephddresses 
LiddressL1lst2, ListIndex = 0 
ValueList2.List = Ropesul ts 
ValueList2.ListIndex = 

End Sub 


步骤 08 调用 Replace1 用 户 窗 体 的 事件 代码 。 在 “工程 ”窗口 中 右 击 “VBAProject (快速 查找 与 替换 满足 条 件 的 数据 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 ”命令 ,打开 “模块 1 ( 代 
码 ) ”窗口 ， 并 在 其 中 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 是 调用 用 户 窗 体 的 过 程 代码 。 


(通用 ) -| | 快速 靖 确 查 拔 与 从 
' 调用 查找 / 痊 换 用 户 人 体 的 过 才 程 代码 
sub 快速 精确 得 找 与 局 换 ( 

Dim myForm Ms -ee 
Set myForm = Jew Replacel 


Ne 
nyForm. Show 
Set myForm = Nothine 
End Sub 


4.3.3 ”运行 代码 完成 精确 查找 与 蔡 换 


设计 完 用 户 窗 体 并 编写 好 相应 的 代码 后 ， 本 小 节 将 运行 代码 以 测试 精确 查找 /替换 的 效果 。 具 体操 作 如 下 。 


步骤 01 为 按钮 控件 指定 宏 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 绘 制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 快 速 精确 查找 与 替换 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 
定 ”按钮 。 


八 事 部 经 理 

企划 部 经 理 

作 事 部 职员 

企划 部 职员 

推广 部 职员 5 | 计 

推广 部 职员 [一 DODE 周 星 
| 推广 部 经 理 “Co07 ”“ 任 燕 
10 | 会 计 部 经 理 。 和 -00 才 晴 

行政 部 经 理 N00 谢 勇 


步骤 03 ”输入 查找 内 容 。 弹 出 “查找 /替换 ”对 话 框 ， 在 “查找 ”选项 卡 的 “查找 内 容 ” 文 本 框 中 输入 “ 男 ”， 单 击 “ 全 部 查找 ”按钮 ， 如 下 图 所 示 。 


烟 对 对 烟 对 对 对 类 疝 


步骤 04 ”弹出 提示 框 。 系 统 自 动 执行 “全 部 查找 ”按钮 对 应 的 代码 ， 执 行 完毕 后 会 弹出 提示 框 ， 提 示 用 户 共 查 找到 15 项 符合 条 件 的 内 容 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 


Microsoft Excel 


共 查 找到 15 项 罕 辣 条 件 的 内 容 


步骤 05 ”查看 符合 条 件 的 单元 格 。 在 工作 表 中 查找 到 的 符合 条 件 的 单元 格 位 置 及 值 都 会 显示 在 “查找 结果 ”选项 组 中 ， 如 下 图 所 示 。 


步骤 06 输入 奉 换 内 容 。 切 换 至 “替换 ”选项 卡 ， 在 “ 蔡 换 为 的 内 容 ” 文 本 框 中 输入 “Man”， 单 击 “ 全 部 替换 ”按钮 ， 如 下 图 所 示 。 


步骤 07 ”显示 蔡 换 结果 。 系 统 执行 该 按钮 对 应 的 程序 代码 ， 执 行 完毕 后 ， 在 “ 蔡 换 结果 ”选项 组 中 将 分 别 显示 蔡 换 的 单元 格 位 置 及 蔡 换 为 的 值 ， 如 下 图 所 示 。 


步骤 08 ”查看 替换 后 的 结果 。 单 击 “ 查 找 /替换 ”对 话 框 右上 角 的 “关闭 ”按钮 ， 返 回 工 作 表 ， 可 看 到 “性 别 ” 列 中 的 “ 男 ” 已 全 被 替换 为 Man， 如 下 图 所 示 。 


2 现任 职务 
作 事 部 经 理 i- 001 
全 划 部 经 理 和 002 
5 | 人事 部 职员 JJ-003 
企划 部 职员 Jo04 
推广 部 职员 NM-005 
8 推广 部 职员 NO006 
推广 部 经 理 M—-007 


会 计 部 经 理 ”N008 
行政 部 经 理 。 和 -009 
行政 部 职员 NM-010 

书 长 NM-—011 


4 | 扶 仔 Bb 人 坟 ”和 012 
| 技术 部 职员 。 N-013 沈 将 
技术 部 职员 -014 陈 溢 


4.3.4 ”编号 代码 完成 模糊 坦 找 与 蔡 换 


之 前 通过 设计 用 户 窗 体 和 编写 代码 实现 了 精确 查找 与 替换 ， 本 小 节 将 通过 直接 编写 代码 ， 实 现 模 糊 查 找 与 替换 。 具 体操 作 如 下 。 


步骤 01 创建 “模糊 查找 /替换 ”按钮 。 返 回 工作 表 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “命令 按钮 (ActiveX 控 件 ) ”图 标 ， 如 右 图 所 示 。 


开 友 [J 具 Power Pivot 告诉 我 您 起 要 做 什么 . 


MA” 回 尾 性 国名 ws 时 呈 和 
war 喇 查看 代码 佛 扩 展 包 ”四 ,导出 
执行 对 话 框 1 刷新 数据 
表单 控件 XML 
口上 © 
| 40 乌 回 国富 
es 注 性 
固 国 图 自 资 料 下 


过 3 Eo if 联系 方式 现在 地 址 
30 ”2006/5/8 本 科 010-8342012 北京 海 汪 区 东 二 环 ### 


步骤 02 ”打开 “属性 ”窗口 。 在 工作 表 中 的 适当 位 置 绘制 命令 按钮 控件 ， 右 击 绘制 的 命令 按钮 ， 在 弹出 的 快捷 菜单 中 单 击 “ 属 性 ”命令 ， 如 下 图 所 示 。 


| E F 
精确 查找 /将 换 : 区 ome 员工 
现任 职务 “员工 编 亏 村。 到 职 日 期 
人 事 部 经 理 NM-001 华 招 浊 复制 人 2006/5/8 
企划 部 经 理 。 NW-002 ” 刘 浦 胸 苛 贴 ®) 2007/2/1 
人 事 部 职员 。W-003 李 静 | 于 Bg) 下 2007/2/1 
企划 部 职员 。 N004 _ 代 瞩 于 Bt0 全 20077375 
推广 序曲 -005 EE Qj] 查看 代码 WV) 2007/3/5 
三 部 职员 -006 站 晶 。 命令 按钮 对 急 (D) ， | 2007/4/12 
推广 部 经 理 Mr-o07 任 藏 一 一 一 ”| 2007/4712 
会 计 部 经 理 1-00 麦 晴 强 SGG 2007/8/20 
行政 部 经 理 谢 勇 | 到 放 次 序 (F 2007/8/20 
2 行政 部 职员 和 C01 赤 P 本 ey. 2007/9/20 
刘 芝 2 ii 

陈 明 方 。 女 26 2007/9/25 
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步骤 03 ”设置 命令 按钮 控件 的 属性 。 弹 出 “属性 ”窗口 ,设置 ”( 名 称 ) ”属性 为 FindButton， 设置 Caption 属 性 为 “模糊 查找 /替换 ”， 如 下 图 所 示 。 


扩 字 加 按 耸 类 序 


【名 称 ) 
hccel erator 
AutoLoad 
AutoS1zre 
ackCol or 
IBacks tyl 
Captl on 
Enabled 
IFont 
|For el ol or 
‘lHel eht 


FindButton 


False 

F al 号 电 

L | &H3000000F& 

1 一 tmBackSty]le0paque 
模 业 但 找 / 葵 的 

True 

林 体 

时 {HH80000012& 

21 


步骤 04 打开 代码 窗口 。 返 回 工 作 表 ， 再 次 右 击 命令 按钮 ， 在 弹出 的 快捷 菜单 中 单 击 “ 碍 看 代码 ”命令 ， 如 下 图 所 示 。 


现任 职务 
估 事 部 经 天 
企划 部 经 理 
人 事 部 职员 
企划 部 职员 
推广 部 职员 
推广 部 职员 


LU = 


推广 部 经 理 
会 计 部 经 理 
行政 部 经 理 
行政 部 职员 


步骤 05 编写 “模糊 查找 /替换 ”按钮 对 应 的 事件 代码 。 在 打开 的 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 ， 


精确 伍 找 /和 登 损 喝 枯 站 E ¥ 药 切 (D 


复制 (C) 


设置 控件 格式 (P).. 


26 2007/9/25 
25 2007/9/25 
23 2007/9/25 
21 2007/10/8 


该 段 代码 用 于 获取 用 户 输入 的 查找 和 替换 的 内 容 ， 然 后 使 用 Find 方 法 查找 符合 条 件 的 第 一 条 记 


"模糊 但 找 /七 换 按钮 对 应 的 事件 代码 


Private Sub FindButton Click 人 0) 
Din FindC is String 
Di ReplaceC hs _ String 
办 入 查找 内 容 及 葡 换 为 


FindcC = InputBox 青 输入 


Di] 


月 
Title:=" 输 入 查找 会) 
ReplaceC = InputBox(” 霄 输 上 入 震 


Title:=" 输入 交换 力 内 容 ”) 
' 查找 全 言 杀 件 的 第 一 杀 记 
Worksheets (1) .Rangee( a3 ) .Select 
Set c = re er LookIn:=xlYalues) 


重点 语法 与 代码 剖析 : Range.Find 方 法 的 用 法 

Range.Find 方 法 用 于 在 区 域 中 查找 特定 信息 。 该 方法 的 返回 值 是 一 个 Range 对 象 ， 代 表 第 一 个 在 其 中 找到 该 信息 的 单元 格 。 该 方法 的 语法 格式 为 : 
表达 式 .Find (What,，After,LooklIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) 

@@What 是 必需 参数 ， 用 于 指定 要 搜索 的 数据 ， 可 为 字符 串 或 任意 Excel 数 据 类 型 。 


全 After 是 可 选 参数 ， 用 于 指定 搜索 过 程 将 从 其 之 后 开始 进行 的 单元 格 。 此 单元 格 对 应 于 从 用 户 界面 搜索 时 的 活动 单元 格 的 位 置 。 注 意 : After 必须 是 区 域 中 的 单个 单元 格 。 要 记 住 搜索 是 从 该 单元 格 之 后 
开始 的 ， 直 到 此 方法 绕 回 到 此 单元 格 时 ， 才 对 其 进行 搜索 。 如 果 不 指定 该 参数 ， 搜 索 将 从 区 域 左上 角 的 单元 格 之 后 开始 。 


LookIn 是 可 选 参数 ， 用 于 指定 信息 类 型 ， 可 为 以 下 常量 之 一 : xlFormulas、 对 Values 或 xINotes， 分 别 表示 查找 公式 、 值 、 批 注 。 
@LookAt 是 可 选 参数 ， 可 为 以 下 常量 之 一 : xlWhole 或 xlPart， 分 别 表示 全 部 查找 和 从 当前 位 置 开 始 查找 。 

@@SeatchOtdet 是 可 选 参数 ， 可 为 以 下 常量 之 一 : xlByRows 或 xlByColumns， 分 别 表 示 按 行 查找 和 按 列 查找 。 

全 ScarchDirection 是 可 选 参 数 ， 用 于 指定 搜索 的 方向 。 

人 @@ MatchCase 是 可 选 参数 ， 用 于 指定 搜索 时 是 否 区 分 大 小 写 ， 如 果 值 为 True， 则 搜索 时 区 分 大 小 写 。 其 默认 值 为 False。 


@MatchByte 是 可 选 参数 ， 只 在 已 选择 或 安装 了 双 字 节 语言 支持 时 适用 。 如 果 为 True， 则 双 字 


二 
3 
ei 
酒 


与 双 字 节 字 符 匹配 。 如 果 为 False， 则 双 字 节 字 符 可 与 其 对 等 的 单字 节 字 符 匹 配 。 


@SearchFormat 是 可 选 参 数 ， 用 于 指定 搜索 的 格式 。 


步骤 06 编写 蔡 换 和 查找 下 一 条 符合 条 件 记 录 的 代码 。 在 打开 的 代码 窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 记录 第 一 个 符合 条 件 内 容 的 位 置 、 蔡 换 内 容 。 其 中 ，FindNext 方 法 用 于 查找 下 
一 条 记录 。 


人 
I+ Not C Is Nothine Then 
“记录 第 一 个 符合 条 件 的 位 首 
flrstaddress = c¢. Mddress 
' 普 换 查找 到 的 内 容 
Do 


c. Value = Replacec 
查找 下 一 条 符合 条 件 的 内 容 


Set c = Cells.FindNext(c) 


Loop While Not c Is Nothing And 


c, ddress 《> tirstAddress 
End I 
End Sub 


步骤 07 单 击 按钮 运行 代码 。 返 回 Excel 视 图 ， 单 击 “ 控 件 ” 组 中 的 “设计 模式 ”按钮 ， 退 出 设计 模式 ， 表 单 击 “模糊 查找 /替换 ”按钮 ， 如 下 图 所 示 。 
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A Bb 


现任 职务 
人 事 部 经 理 
企划 部 经 理 
人 事 部 职员 
企划 部 职员 
推广 部 职员 
推广 部 职员 
3 推广 部 经 理 
会 计 部 经 理 
行政 部 经 理 
行政 部 职员 

3 | 秘书 长 


重点 语法 与 代码 剖析 : Range.FindNext 方 法 的 用 法 


Range.FindNext 方 法 是 继续 由 Find 方 法 开始 的 搜索 ， 查 找 匹 配 相同 条 件 的 下 一 个 单元 格 ， 并 返回 表示 该 单元 格 的 Range 对 象 。 该 操作 不 影响 选 定 内 容 和 活动 单元 格 。 该 方法 的 语法 格式 为 : 表达 
式 .FindNext (After) 。 其 中 ，Aftet 参 数 是 可 选 参 数 ， 用 于 指定 一 个 单元 格 ， 查 找 将 从 该 单元 格 之 后 开始 ;直到 本 方法 绕 回 到 此 单元 格 时 ， 才 检测 其 内 容 。 此 单元 格 对 应 于 从 用 户 界面 搜索 时 的 活动 单元 格 的 
人 位置。 如果 未 指定 本 和 参数， 查找 将 从 区 域 的 左上 角 单 元 格 之 后 开始 。 注 意 : Aftet 必 须 是 查找 区 域 中 的 单个 单元 格 。 


步骤 08 输入 查找 内 容 。 此 时 弹出 “输入 查找 内 容 ” 对 话 框 ， 在 文本 框 中 输入 “大 ”,， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


B 5 D F 

“精确 查找 / 普 换 | 。 模糊 查找 / 普 换 员工 
员工 编号 姓名 性 别 部 ”到 了 日 期 
"ang /5 /8 
xX 了 /211 
区 /7271 
a /3/5 
| /3/5 
4712 
/12 
7 8720 
行政 部 绽 寺 一 NUU: 诗 Nan— "29 ZUUT/8/20 
行政 部 职员 1-0 Man 24 2007/9/20 
13 向 书 长 

接待 部 经 理 10 东 妈 6 200779725 
技术 部 职员 ”~ | z ”2007/9/25 


步骤 09 输入 要 蔡 换 为 的 内 容 。 弹 出 “输入 蔡 换 为 内 容 ” 对 话 框 ， 提 示 用 户 输入 需要 替换 为 的 内 容 ， 在 文本 框 中 输入 “专科 ”， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 
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TT 员工 缚 写 姓名 ”性别 年 齿 ”到 了 日 期 
人 事 部 经理 K-001 化 扬 Kan 30 2006/5/8 
企 h “，、.. I 07/2/1 
A 定 3 07/2/1 

OQ7/3/5 

ee D7/3/5 

浊 | 了 /4712 

了 /4/12 

/2 

| 志 | | Pp/8/20 

行政 部 肛 员 一 -010 -竹下 Mai 24 2007/9/20 
秘书 长 K-011 刘 艺 琳 女 27 

14 | 接待 部 经 理 N-012 陈 明 千 。 女 26 2007/9/25 

15 | 技术 部 职员 。 N-013 沈 辉 Kan 25 2007/9/25 


步骤 10 ”查看 替换 后 的 效果 。 系 统 自 动 执行 对 应 的 程序 代码 ， 执 行 完毕 后 可 看 到 包含 “大 ”的 单元 格 内 容 全 被 替换 为 “专科 ”了 ， 如 右 图 所 示 。 
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员工 基本 资料 表 


到 了 日 期 ” 罕 历 
20067578 本 科 
2007/2/1 研究 生 
2007/2/1 寺 科 
2007/3/5 专科 
2007/3/5 本 科 

2007/4/12 本 科 

2007/4/12 研究 生 

2007/8/20 本 科 

2007/8/20 本 科 

2007/9/20 本 科 

专科 


2007/9/25 专科 
2007/9/25 本 科 
2007/9/25 本 科 
2007/10/8 专科 
200771078 本 科 
2007/11/20 研究 生 
2007 汶 1/20 研究 生 
2007/12/1 本 科 
2007/12/1 本 科 
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O010-8342012 
159<5d<1Le2l 
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1365485125 
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1] 305437154 
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132506545 15 
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1335246785 
13065784555 


第 5 章 ”公司 值班 管理 系统 


很 多 公司 都 会 安排 人 员 值 班 ， 这 就 需要 对 值班 人 员 进行 有 效 的 统一 管理 。 本 章 将 运用 VBA 用 户 窗 体 和 程序 代码 制作 一 个 值班 管理 系统 。 该 系统 能 够 自动 提取 信息 制作 出 值班 人 员 佩戴 的 工作 证 。 为 了 避 
免 无 天 人 员 任 意 修改 值班 安排 ,该 系统 还 具备 访问 权限 控制 功能 ， 只 有 输入 正确 的 用 户 名 和 密码 才能 打开 工作 秒 。 


5.1 ”批量 制作 信 班 工作 证 


公司 员工 在 值班 时 通常 都 要 佩戴 自己 的 值班 工作 证 ， 工 作证 内 容 一 般 包 括 员工 所 属 部 门 、 姓 名 、 相 片 及 工作 证 编号 。 假 设 根据 公司 规定 ， 工 作证 编号 由 员工 所 属 部 门 编号 、 身 份 证 号 码 后 6 位 、 员 工 性 别 
编码 (男性 为 “1”,， 女性 为 “2”) 组 成 。 员 工 的 相片 以 员工 的 姓名 命名 ， 保 存在 “相片 资料 ”文件 夹 中 。 本 节 将 编写 VBA 代 码 ， 自 动 按照 公司 规定 生成 工作 证 编号 ， 然 后 在 模板 中 填写 信息 并 插入 相片 ， 
批量 制作 出 值班 工作 证 。 


扫 码 看 视频 


m af :实例 文件 \ 第 5 章 \ 原 始 文件 \ 自 动 生成 证 件 .xlsm、 “相片 资 料 ” 文 件 夫 


实例 文件 \ 第 5 章 \ 最 终 文件 \ 自 动 生成 证 件 .xlsm 


本 小 节 将 编写 VBA 程 序 ， 根 据 员 工 编号 制作 “值班 证 件 列表 ”表格 ， 并 获取 各 员工 的 值班 工作 证 编号 。 具 体操 作 如 下 。 


又 01 查看 “值班 证 件 列表 ”工作 表 。 打 开 原 始 文件 ， 单 击 “ 值 班 证 件 列表 ”工作 表 标 签 ， 可 看 到 该 工作 表 中 已 存在 如 下 图 所 示 的 数据 。 
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010001 | 
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步骤 02 ”自动 获取 数据 中 的 变量 。 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 ， 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 定义 “自动 获取 数据 ”过 
程 中 的 变量 ， 再 获取 “值班 证 件 列表 ”中 数据 的 行 数 。 


r-| 吕 -| 苇 : 


0 自动 次 了 雪 所 


i 


D1n rowNum hs ee 
Dim Nums &s EE 
D1n AN bs lntees 

获取 值班 工作 证 区 表 的 和 J 


rowNum = er he tee i 
Rows. Count 


步骤 03 ”根据 员工 编号 获取 员工 信息 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 主要 使 用 双重 循环 根据 员工 编号 获取 员工 的 姓名 、 部 门 及 工作 证 编号 ， 并 调用 自 定义 函数 
PaperNum() 获 取 值 班 工作 证 编号 。 


(通用 ) 百 动 芭 
ESEEEESECEETEAEEE 汉 部 门 及 值班 工作 证 编号 


For [= 2 To ITowNunm 
Dim J hs Integer 
For ] = 3 To rowNum + 1 
If Worksheets (2).Cells(I, 1» = 
Worksheets (1). Cells{], 1) Then 
' 写 入 相应 员工 姓名 
Worksheets (2).CellstI, 2) = 
Vorksheets (1). Cells (], 2) 
' 写 入 相应 员工 部 门 
Worksheets (2). Cs 
Weorksheets(l) .Cells tl 
设置 售 玉 卫生 结 号 办 元 名 入 全 为 文本 格式 
Worksheets (2) .Cells (I，4). 
NHumberFormatLocal = “@” 
pr BEEP 将 值班 工作 证 编号 
与 入 相应 单元 


Worksheets (2) .Cells (I, 4) = PaperNun (J) 
End I+t 
Next J 
Next J 
End Sub 


重点 语法 与 代码 剖析 : Worksheets (2) .Cells (1，4) .NumberFormatLocal="@ "语句 的 用 法 

步骤 03 代 码 段 中 的 该 语句 用 于 将 第 I 行 第 4 列 的 单元 格 数字 显示 格式 设置 为 文本 格式 。 它 使 用 Range 对 象 的 NumberFormatLocal 属 性 来 设置 单元 格 的 格式 ， 该 属性 的 语法 格式 及 功能 如 下 。 

大 语法 格式 

表达 式 .NumberFormatLocal 

大功 能 说 明 

以 用 户 语言 字符 串 的 形式 返回 或 设置 一 个 Vatiant 值 ， 它 代表 对 象 的 格式 代码 。 注 意 : Format0 函数 使 用 的 格式 代码 字符 串 与 NumberFotmat 和 NumbetFotmatLocal 属 性 使 用 的 格式 代码 字符 串 不 同 。 


步骤 04 _ 自 定义 PaperNum(0 国 数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 用 户 自 定义 的 PaperNum() 函 数 ， 用 于 获取 工作 证 编号 。 其 中 ， 使 用 VBA 的 内 置 函 数 Right() 
获取 员工 身份 证 号 码 的 后 6 位 。 


(通用 ) v| |Papergm > 


自 定 头 PaperNun 0 国 数 ， 人 
Function PaperNum ( A 让 Ss Integer) hs String 


定义 Str 变 重 存 情 员工 性 别 编 亏 


Dim Str As String 
If Pose hee ds Cells (AN, 3 .Value =“ 女 ”Then 


End I+ 

' 定义 SFZ 变 台 存 悄 身 份 证 亏 码 的 后 六 位 

Dimn SFZ AS Strine 

SFZ = Right (Worksheets (1).Cells (AN EE Value， 重 

' 根据 员工 所 在 部 门 编号 确定 值班 工作 证 

FapeTNum = Worksheets (1). 人 3) + SFZ + Str 
End Functlon 


步骤 05 执行 宏 。 返 回 Excel 视 图 ， 按 Alt+F8 组 合 键 , 弹 出 “ 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 自 动 获取 数据 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 ， 即 可 执行 编写 的 宏 代 码 。 


步骤 06 ”执行 宏 的 效果 。 系 统 自动 执行 选中 的 宏 代 码 ， 执 行 完毕 后 ， 在 “值班 证 件 列表 ”工作 表 中 显示 相应 的 结果 ， 如 右 图 所 示 。 


loo02 人 销售 言 
010003 几 书 六 25016322 
010004 033214582 


077451522 
049215421 z 


| 
|e 

3 
Ee:; 


高 手 点 拨 : 检验 获取 的 值班 证 件 列 表 的 数据 是 否 正确 


如 果 需 要 检验 每 个 员工 编号 对 应 的 人 员 信 息 是 否 获 取 正 确 ， 可 以 将 员工 编号 顺序 打 乱 ， 然 后 打开 “ 宏 ” 对 话 框 ， 选 择 “ 自 动 获取 数据 ”选项 ， 再 单 击 “执行 ”按钮 。 执 行 完 毕 后 ， 在 “值班 证 件 列 
”中 会 显示 结果 ， 将 其 与 “基本 档案 ”工作 表 中 的 数据 进行 对 比 ， 即 可 得 知 根据 员工 编号 获取 的 数据 是 正确 的 。 


5.1.2 ”编写 代码 按照 模板 制作 值班 工作 证 


获取 各 员工 的 工作 证 编号 后 ， 接 着 编写 VBA 程 序 代 码 ， 根 据 “ 值 班 证 件 列表 ”和 “相片 资料 ”文件 夹 来 批量 制作 值班 工作 证 。 具 体操 作 如 下 。 


步骤 01 ”创建 值班 工作 证 模板 。 继 续 上 一 小 节 的 操作 ， 双 击 Sheet3 工 作 表 标 签 ， 然 后 将 其 重 命名 为 “工作 证 模板 ”， 在 工作 表 中 创建 “值班 工作 证 ”表格 ， 如 下 图 所 示 。 


值班 工作 证 


步骤 02 ”进入 VBE 编 程 环境 。 在 “开发 工具 ”选项 卡 下 单 击 “代码 ”组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 ， 即 可 进入 VBE 编 程 环境 。 


才 始 。” 插入 见面 布局 公元 


DD 


加 。” Excel COM 加 载 项 
载 项 ”加载 项 


步骤 03 ”开始 编写 制作 工作 证 的 代码 。 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 ， 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 主要 使 用 复制 工作 表 的 方式 制作 工作 证 ， 并 在 对 应 
的 位 置 写 入 合适 的 值 。 


证 件 了 
估 斌 鸭 表 的 机 | 
AS ee | 
= Worksheets (” 值班 证 件 列表 ”) 
过 复工 作 条 杀生 作证 这 在 对 应 位 置 写 六 合适 的 值 


2T 
oF rksheete * 工 作证 模板 。 Copy 
before:=Worksheets (1) 

With Worksheets(1l) 
.Name = list.Cells(I, 2).VYalue : 
. Ranze'l’B2”).Value = list.Cells (I, 3).Value 
.Range(t B3 ) .Value = list.CellstI, 2).Value 
.Range(“B4 ) .Value = list.Cells(I， 册 .Value 
.Range(t Bd ). Horizontalkalignnent = xlLeft 

End With 

Next I 


步骤 04 ”编写 选择 相片 资料 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 主 要 使 用 对 话 框 选择 保存 员工 相片 的 文件 夹 。 


自动 生成 证 件 
" 使 用 对 话 框 选择 保存 相 卢 的 文件 夹 


Dim Fpath hs Strine 
Fpath = “” 
Dim ts As FileDlialog 
Set ts = Application.FileDialogs _ 
(msoFileDialogFolderPicker) 
Dim Result As Inteser 
With ts 
.llowMultiSelect = False 
Result = .Show 
It Result <> 0 Then : 
Fpath = fs, SelectedItens (1) 
Else 
Fpath - 
End I+t 
End With 
Set ts = Nothine 


邮 而 


高 手 点 拨 : 设置 单元 格 的 水 平 对 齐 方式 


之 前 介绍 过 ，Range 对 象 的 HotizontalAlignment 属 性 可 用 于 设置 单元 格 的 水 平 对 齐 方 式 。 该 属性 的 值 可 为 允 Cenhtef (居中 对 齐 ) 、xlDisttibuted (平均 对 齐 ) 、 世 Justify (调节 对 齐 ) 、xlLeft ( 左 对 齐 ) 、 
xlRight ( 右 对 齐 ) 等 。 步 骤 03 中 的 .Range ("B4") .HorizontalAlignment=xlLeft 语 句 用 来 设置 单元 格 B4 的 水 平 对齐 方 式 为 左 对 齐 。 


步骤 05 ”获取 员工 相片 的 文件 名 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 使 用 循环 语句 依次 将 工作 证 设置 为 当前 工作 表 ， 再 将 单元 格 B3 中 的 员工 姓名 赋值 给 变量 
Name， 然 后 使 用 “+” 连 接 字 符 串 “.JPG”， 得 到 员工 相片 的 文件 名 。 


| 甬 有 有) | 
"利用 循环 语句 插入 各 个 员工 的 相片 
For I = 1 To Worksheets.Count — 3 
"获取 员工 相片 的 文件 名 
Dim Sht As Worksheet 


Set Sht = Worksheets (I) 

Sht. Activate 

Dim Name Ms Strinege 

Dim Patch is Strine 

Name = Sht.Ranget B3 ) .Value 
Name = Name + “. JPG” 


步骤 06 编写 “获取 图 片 文件 的 路 径 ” 代 码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 通过 文件 系统 访问 选 定 文件 夹 下 所 有 的 JPG 文 件 ， 并 比较 其 名 称 与 前 面 获取 的 名 称 是 


否 相同 。 如 果 相 同 ， 则 在 前 面 选择 的 路 径 后 连接 人 ”+ “图 片 名 称 ”， 并 且 退 出 循环 。 


自动 生成 正 件 


获取 相片 文件 的 路 径 

Dim mytilesystem is Object 

Set myillesystem = CreateObject _ 
(“scriptine. filesystemobject ) 


Set aimfolder = nyfilesysten.GetFolder (Fpath) 
For Each one In alntolder.Files 
It one.Name = Name Then 
Patch = Fpath + “\” + one. Nane 
Exit For 
End I 
Next one 


步骤 07 插入 并 设置 图 片 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 并 保存 ， 该 段 代码 主要 使 用 Shapes 对 象 的 AddPicture 方 法 插入 图 片 。 


自动 生成 证 件 
在 指定 单元 格 位 置 以 指定 大 小 质 入 相 睛 


Dim IconCell 4 上 ss Ranee 
Set IconCell = Ranee(’C2:04”) 
AictiveSheet. Shapes.addPicture 
Filename:=Patch, _ 
LinkToFile:=False, _ 
SaveWithDocument :=True, 
Lett:=IconCell.Lett, 
Top:=IconCell. Top, _ 
Width:=IconCcell. Width, _ 
Heieht:=IconCell. Heigeht 
Next I 
End Sub 


重点 语法 与 代码 剖析 : Shapes.AddPicture 方 法 的 用 法 


在 Excel 2007 及 其 之 前 版 本 的 VBA 中 ， 使 用 Pictures.Insett 方 法 在 工作 表 中 播 入 图 片 。 从 Excel 2010 开 始 ， 使 用 Pictures.Insert 方 法 插入 的 图 片 仅 是 一 个 链接 ， 如 果 图 片 源 文件 被 删除 、 收 名 或 移动 位 置 ， 工 作 
表 中 的 图 片 将 显示 为 链接 错误 。 若 要 将 图 片 “ 真 正 地 ”插入 工作 表 中 ， 应 使 用 Shapes.AddPicture 方 法 。 


大 语法 格式 

表达 式 .AddPicture (Filename，LinkToFile ，SaveWithDocument，Left，Top，Width，Heipght) 

太 功 能 说 明 

Shapes.AddPicture 方 法 用 于 在 Excel 工 作 表 中 插入 图 片 ， 它 将 返回 一 个 代表 新 图 片 的 Shape 对 象 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Shapes 对 象 的 变量 。 下 面 对 该 方法 的 参数 进行 详细 介绍 。 
@@ ”Filename 是 必需 参数 ， 用 于 指定 要 插入 的 图 片 文 件 的 路 径 。 


@@ LinkToFile 是 必需 参数 ， 若 为 True， 则 在 插入 的 图 片 与 源 图 片 之 间 建 立 链接 ; 若 为 False， 则 插入 的 图 片 是 源 图 片 的 一 个 独立 副本 。 


@@。 SaveWithDocument 是 必需 参数 ， 若 为 True， 则 将 插入 的 图 片 与 文档 一 起 保存 ; 车 为 False， 则 只 在 文档 中 保存 图 片 的 链接 信息 。 若 LinkToFile 参 数 为 False， 则 该 参数 必须 为 True。 
@ Left、Top 是 必需 参数 ， 用 于 指定 插入 后 的 图 片 左 上 角 相 对 于 单元 格 A1 左 边线 和 上 边线 的 位 置 ( 以 磅 为 单位 ) 。 
@ Width、Height 是 必需 参数 ， 用 于 指定 插入 后 的 图 片 的 宽度 和 高 度 (以 磅 为 单位 ) 。 


步骤 08 插入 按钮 控件 。 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 下 单 击 “控件 ”组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控 件 ) ”图 标 ， 如 下 图 所 示 。 
. mal 到 - 而 
数 括 审阅 视图 开发 工具 Power Pivot 


+ = NA 问 尾 性 
MK ss 着 
COM 加 载 项 源 


LE 


口 国 固 国 四 鼻 
扑 @ABB 吕 才 


| (R), 


步骤 10” 重 命名 按钮 控件 。 返 回 工作 表 ， 将 按钮 控件 重 命名 为 “自动 生成 值班 工作 证 ”， 然 后 单 击 任意 位 置 激活 按钮 控件 ， 如 下 图 所 示 。 


步骤 11 执行 “自动 生成 证 件 ” 宏 。 单 击 “ 自 动 生成 值班 工作 证 ”按钮 ， 如 下 图 所 示 ， 即 可 执行 宏 代码 。 


自动 生成 值班 工作 证 


步骤 12 ”选择 员工 相片 的 文件 夹 。 系 统 自动 执行 宏 代 码 ， 弹 出 “浏览 ”对 话 框 ， 在 地 址 栏 中 选择 “相片 资料 ”文件 夹 的 路 径 ， 选 定 “ 相 片 资料 ”文件 夹 ， 单 击 “ 确 定 ”按钮 ， 如 下 左 图 所 示 。 


浏览 
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步骤 14 查看 其 他 值班 工作 证 的 效果 。 单 击 其 他 员工 姓名 的 工作 表 ， 如 “ 单 章 ”工作 表 ， 在 该 工作 表 中 即 显示 了 单 韵 的 值班 工作 证 ， 如 右 图 所 示 。 


5.2 ”设置 值班 人 员 登 记 权 限 


制作 好 值班 工作 证 后 ， 为 了 避免 他 人 任意 更 改 值班 工作 证 及 值班 安排 信息 ， 可 以 使 用 VBA 程 序 对 工作 簿 的 访问 权限 进行 控制 ， 让 值班 人 员 可 以 查看 值班 信息 ， 但 不 能 更 改 ， 并 赋予 特定 人 员 修 改 的 权 
限 。 下 面 就 结合 使 用 VBA 程 序 中 的 用 户 窗 体 和 模块 代码 设置 工作 筹 的 访问 权限 。 


扫 码 看 视频 


ea 


一 一 9 上 : 实例 文件 \ 第 5 章 \ 原 始 文件 \ 值 班 人 员 登 记 权 限 .xlsm 


实例 文件 \ 第 5 章 \ 最 终 文件 \ 值 班 人 员 登 记 权 限 .xlsm 


要 使 用 VBA 程 序 来 设置 值班 人 员 的 访问 权限 ， 首 先 需 要 设计 一 个 合理 的 用 户 窗 体 作为 VBA 程 序 代码 的 载体 。 具 体操 作 如 下 。 


创建 用 户 权 限 表 格 。 打 开 原 始 文 件 ， 插 入 一 个 新 的 工作 表 ， 并 将 其 重 命名 为 “用 户 权限 ”， 在 其 中 输入 “查看 权限 ”和 “修改 权限 ”的 信息 ， 如 下 图 所 示 。 


| 半 = | rer 
。_ 谢 此 ”| XP5643 
xiehao234 | | _ 刘 日 | L69120 


步骤 02 插入 用 户 窗 体 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (值班 人 员 登 记 权限 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “插入 > 用 户 窗 体 ”命令 ,如 下 图 所 示 。 


田 - 量 Solrer (SOLYEE. TLAN) 

四 .是 YBAProject (FUNCEES. ILAN) 
日: VBAPE A 人 ~. 从 - 
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童 齐 对 象 ( 昌 ) 
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步骤 03 打开 “属性 ”窗口 。 插 入 用 户 窗 体 对 象 后， 在 打开 的 窗 体 对 象 窗口 的 任意 位 置 右 击 ， 在 弹出 的 快捷 菜单 中 单 击 “ 属 性 ”命令 ， 如 下 图 所 示 。 
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步骤 04 ”修改 用 户 窗 体 的 属性 。 在 打开 的 “属性 ”窗口 中 , 将 ”( 名 称 ) ”属性 更 改 为 User， 将 Caption 属 性 更 改 为 “用 户 界 面 ”， 如 下 图 所 示 。 在 窗 体 对 象 窗口 中 查看 修改 后 的 效果 。 


User lserForm 
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Cycle 0- fnCycleAMlForms 
Drama 32000 
True 
/宋体 
圈 HB0000012& 
‘180 
0 


步骤 05 ”绘制 标签 。 在 工具 箱 中 单 击 “ 标 签 ”按钮 ， 在 窗 体 对 象 窗口 中 拖 动 鼠标 ， 绘 制 标签 ， 如 下 图 所 示 。 
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步骤 06 ”修改 标签 的 属性 。 选 定 绘制 的 标签 ， 在 “属性 ”窗口 中 设置 ” (名 称 ) ”属性 为 Name、Caption 属 性 为 “用 户 名 ”， 单 击 Font 属 性 右 侧 的 对 话 框 启动 器 按钮 ， 如 下 图 所 示 。 
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步骤 07 设置 标签 的 字体 。 弹 出 “字体 ”对 话 框 , 设置 “字体 ”为 “华文 楷体 ”、“ 字 形 ” 为 “ 粗 体 ”、“ 大 小 ”为 “四 号 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 
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步骤 08 ”设置 标签 的 字体 颜色 。 单 击 ForeColor 右 侧 的 下 三 角 按钮 ， 在 弹出 的 列表 中 单 击 “ 调 色 板 ”选项 卡 中 的 蓝 色 色 标 ， 如 下 图 所 示 。 
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步骤 09 ”绘制 文本 框 。 在 工具 箱 中 单 击 “ 文 本 框 ”按钮 ， 在 标签 上 方 拖 动 鼠标 ， 绘 制 文本 框 ， 如 下 图 所 示 。 绘 制 完毕 后 ， 释 放 鼠 标 。 
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步骤 10 ”修改 文本 框 的 属性 。 选 定 绘制 的 文本 框 ,在 “属性 ”窗口 中 将 ”( 名 称 ) ”属性 更 改 为 UserName， 其 余 保持 默认 值 ， 如 下 图 所 示 。 
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步骤 11 制作 “密码” 标签。 制作 “密码 ”标签 的 方法 与 制作 “用 户 名 ”标签 的 方法 相同 ， 唯 一 不 同 的 是 将 “密码 ”标签 的 ”( 名 称 ) ”属性 更 改 为 Code，Caption 属 性 更 改 为 “密码 


”， 如 下 图 所 
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步骤 12 制作 “密码 ”标签 后 的 文本 框 。 绘 制 文 本 框 的 方法 与 前 面 的 方法 相同 ， 绘 制 完成 后 在 “属性 ”窗口 中 将 其 ”( 名 称 ) ”属性 更 改 为 UserCode， 如 下 图 所 示 。 
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步骤 13 ”绘制 按钮 。 在 工具 箱 中 单 击 “命令 按 钮 ”控件 ， 在 窗 体 对 象 窗口 中 的 适当 位 置 拖 动 鼠标 ， 绘 制 按钮 ， 如 下 图 所 示 。 


步骤 14 ”更改 按钮 的 属性 。 选 定 该 控件 ， 在 “属性 ”窗口 中 将 “ (名 称 ) ”属性 更 改 为 OK， 将 Caption 属 性 更 改 为 “确定 ”， 并 利用 相同 的 方法 设置 按钮 文本 的 字体 格式 ， 如 下 图 所 示 。 
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步骤 15 制作 “取消 ”按钮 。 在 窗 体 对 象 窗口 中 按 住 Ctrl 键 ， 拖 动 “ 确 定 ” 按 钮 控件 ， 复 制 一 个 按钮 控件 ， 并 将 其 “” (名 称 ) ”属性 更 改 为 Cancel，Caption 属 性 更 改 为 “取消 ”， 如 下 图 所 示 。 
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步骤 16 ”查看 “用 户 界面 ” 窗 体 效果 。 此 时 在 窗 体 对 象 窗口 中 可 适当 调整 各 控件 的 大 小 和 位 置 ， 设 计 好 的 “用 户 界面 ” 窗 体 效果 如 下 图 所 示 。 
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5.2.2 ”添加 控件 对 应 的 事件 代码 


设计 好 用 户 窗 体 后 ， 还 需要 为 该 窗 体 中 的 按钮 控件 编写 对 应 的 事件 代码 。 具 体操 作 如 下 。 


步骤 01 打开 用 户 窗 体 代 码 窗口 。 继 续 上 一 小 节 的 操作 ， 在 “工程 ”窗口 中 右 击 User 窗 体 ， 在 弹出 的 快捷 菜单 中 单 击 “ 查 看 代码 ”命令 ,如 下 图 所 示 。 


VBAProject 层 性 (E)... 
插入 (N) 

导入 文件 山 .… 

导出 文件 (E)... 

移 除 User(R)... 


步骤 02 为 “取消 ”按钮 添加 动作 事件 。 在 打开 的 “User (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 在 单 击 “ 取 消 ”按钮 时 ， 隐 藏 “用 户 界面 ” 窗 体 。 


[caca vv ww [cick vv | me 
取消 按 锂 的 事件 过 程 下 
Private Sub Cancel]l_Click0) 

关闭 用 户 窒 凋 守信 
Me. Hide 


End Sub 


步骤 03 ”为 “确定 ”按钮 添加 动作 事件 。 在 “User (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 为 “确定 ”按钮 动作 事件 的 前 半 部 分 代码 ， 主 要 用 于 判断 用 户 输 入 的 用 户 名 与 密码 是 否 
为 “查看 权限 ”表格 中 的 数据 。 如 果 是 ， 则 调用 Show_Enable_Sheet0 过 程 。 


" 硼 正 按钮 由 事件 过 程 
Private Sub ok Click() : 

Dim Power is ph oe iar 

Set Power = Worksh 必用 户 权 限 ”) 
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Dim J As Integer 
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usernamem = UserNanme. Value 

usercodec = UserCode. Value 


It Usernamen., = ”Or usercodec = “” Then 
sgBox “请 输 ij 六 用 户 名 或 密码 ” 


Dim Shts hs Integer 
A = eo Count 


"判断 用 户 给 ji 入 的 用 户 名 与 密码 是 理 是 但 看 权限 用 户 
If usernamen = Power.CellskI，1) Then 
If usercodec = Power., Cells (I, 2) Then 
" 调用 显示 所 有 工 
模块 3. Show_Enable_sheet 
Worksheets (Shts). Delete 
Exit For 
End It 
End I 


步骤 04 ”编写 代码 判断 是 否 为 修改 权限 用 户 。 在 “User (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 同 样 将 循环 语句 与 上 f 判 断 语 句 相 结合 ， 判 断 输入 的 用 户 名 与 密码 是 否 为 “修改 权 
限 ” 表 格 中 的 数据 。 如 果 是 ， 则 调用 Show_ Writen_ Sheet(0 过 程 。 
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a 用 已 输 入 Re 码 是 天 是 修改 权限 用 户 
For J]= 2To 4 
If usernamen = Power.Cells(], 4) Then 
If usercodec = Power.Cells(], 5) Then 
模块 3. Show Writen Sheet 
Worksheets (Shts). Delete 
Exit For 
End I 
End I+t 
Next JT 
ep ee 一 


"人 闫 前 请 各 面 亩 体 
Me. Hide 
End Sub 


步骤 05 自 定义 Hide_Of_AlI0 过 程 。 插 入 “模块 3”， 在 “模块 3 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 用 于 保护 工作 簿 中 所 有 的 工作 表 ， 并 且 隐 藏 所 有 工作 表 。 其 中 ， 使 用 Worksheet 
对 象 的 Protect 方 法 来 设置 密码 ， 保 护 所 有 工作 表 。 


(通用 》 v| Nide_O0f_All 


' 隐藏 所 有 工作 表 
sub Hide Of All1O 
Un krror Kesume Next 
Dim mySsheet As Worksheet 
For Each mySheet In Worksheets 
nySheet. Protect Password:= 123456" 


nySheet. Yisible = False 
Next mySsheet 
End Sub 


高 手 点 拨 : UserName.Value 和 UserCode.Value 变 量 
在 循环 语句 中 使 用 的 UserName.Value 和 UserCode.Value 变 量 是 指 用 户 在 “用 户 界 面 ” 窗 体 中 输入 的 用 户 名 和 密码 ， 也 就 是 指 系 统 自 动 运 用 文本 框 的 名 称 变量 存储 用 户 输入 的 用 户 名 和 密码 。 


步骤 06 自 定义 Show_Enable_Sheet0 过 程 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 显示 工作 簿 中 的 所 有 工作 表 。 其 中 ， 使 用 Worksheet 对 象 的 Visible 属 性 来 实现 
工作 表 的 显示 。 
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"显示 所 有 工作 表 但 不 撤销 保护 

Sub Show_Enable_Ssheet() 
hpplication. ScreenUpdatine = False 
On Error Resume Next 
Dim one 点 ES Worksheet 


For Each one In Worksheets 
one. Yilslble = xlSsheetY1isible 
Next one 
Applicatlon. ScreenUpdatine = True 
End Sub 


步骤 07 自 定义 Show_Writen_Sheet0 过 程 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 代码 段 用 于 显示 工作 簿 中 所 有 的 工作 表 ， 并 撤销 工作 表 的 保护 。 其 中 ,使 用 Worksheet 对 
象 的 Unprotect 方 法 来 撤销 工作 表 的 保护 。 


' 显示 所 有 工作 表 并 撤销 保护 

Sub Show_yWriten_Sheet 局 
ipplication. ScreenUpdatine = Fa 
On Error Resume Next 
Din one is Worksheet 


For Each one In Worksheets 
one. Yisible = xlSsheetyY1isible 
one. Unprotect Passyord:= 123456"” 
Next one 
Applicatlon,. ScreenUpdatine = True 
End Sub 


重点 语法 与 代码 剖析 : 显示 与 隐藏 工作 表 
隐藏 与 显示 工作 表 时 使 用 了 Worksheet 对 象 的 Visible 属 性 ， 该 属性 用 于 返回 或 设置 一 个 XISheetVisibility 值 ， 用 于 确定 对 象 是 否 可 见 。 其 语法 格式 为 : 表达 式 .Visible。 其 中 ，“ 表 达 式 ”是 一 个 代表 


Wotksheet 对 象 的 变量 。XISheetVisibility 值 的 枚 举 如 下 表 所 示 。 


名 称 值 述 


| 隐藏 工作 表 。 使 工作 表 重 新 可 见 的 唯一 方法 是 将 此 
显示 工作 表 


步骤 08 ”设置 关闭 工作 敌 之 前 保护 并 隐藏 所 有 工作 表 。 在 “工程 ”窗口 中 双击 ThisWorkbook 选 项 ， 在 打开 的 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 保护 并 隐藏 除 新 建 工作 表 外 的 所 有 工 
作 表 ， 最 后 关闭 工作 短 。 


ER 

Private Sub Workbook BeforeClose(Cancel is Boolean) 
On krror Kesume Next | 
Worksheets. Add after:=Worksheets(” 用户 权 限 ) 
Hide Ot All 
Application. CommandBars (mySheet) .Delete 
ThisWorkbook. Save 
Close 

id sub 


步骤 09 ”打开 工作 筹 时 调用 User 用 户 窗 体 。 在 “ThisWorkbook (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 在 打开 工作 簿 时 调用 User 用 户 窗 体 。 其 中 ，User.Show 用 于 显示 用 户 窗 体 
User。 返 回 Excel 视 图 ， 将 该 工作 簿 另 存 为 最 终 文件 。 


叱 | 回 | 配 : 


Private Sub Yorkbook Openl) 
User,. Show 
End Sub 


Li 


高 手 点 拨 : Application.CommandBars 属 性 的 用 法 


在 步骤 08 中 使 用 了 Application.CommandBatrs 属 性 ， 该 属性 返回 一 个 CommandBatrs 对 象 ， 它 代表 Excel 命 令 栏 。 其 语法 格式 为 : 表达 式 .CommandBarts。 其 中 ，“ 表 达 式 ”是 一 个 返回 Application 对 象 的 表达 
式 。 


5.2.3 ”通过 用 户 界 面 访问 


完成 前 两 个 小 节 的 操作 后 ， 接 下 来 需要 通过 用 户 界面 访问 该 工作 簿 来 检测 是 否 成 功 实现 了 值班 人 员 的 访问 权限 控制 。 具 体操 作 如 下 。 


步骤 01 打开 文件 。 继 续 上 一 小 节 的 操作 ， 找 到 目标 文件 所 在 的 位 置 ， 双 击 该 文件 ， 如 下 图 所 示 。 
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步骤 02 输入 用 户 名 和 密码 。 弹 出 “用 户 界面 ”对 话 框 ， 可 看 到 打开 的 工作 簿 中 只 显示 了 新 建 的 工作 表 Sheet1， 其 余 的 工作 表 都 被 隐藏 了 。 在 对 话 框 中 输入 用 户 名 和 密码 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 
所 示 。 
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步骤 03 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 将 永久 删除 此 工作 表 ， 询 问 是 否 继 续 ， 单 击 “ 删 除 ”按钮 即 可 ， 如 下 图 所 示 。 


| 
J 
和 
避 
0 
f 
0 
日 


友 || 单 竟 


B | 
值班 工作 证 
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高 手 点 拨 : 隐藏 “用 户 界面 ” 窗 体 


若 要 在 运行 完 程 序 代 码 后 自动 隐藏 用 户 界面 ” 窗 体 ， 则 可 以 在 “User (代码 ) ”窗口 中 End Sub 语 句 的 上 方 写 入 Me.Hide 语 和 句 。 


步骤 05 ”弹出 提示 框 。 按 Delete 键 ， 系 统 将 弹出 提示 框 ， 提 示 用 户 工作 表 已 被 保护 ， 只 能 查看 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 右 图 所 示 。 如 要 修改 则 需 撤销 工作 表 的 保护 。 


陈 申 | 何 教 | 郝 凉 | 谢 豪 | 刘海 | 基本 档案 | 值班 证 件 列表 | 工作 证 模板 


步骤 06 提示 输入 用 户 名 和 密码 。 关 闭 并 打开 工作 簿 ， 弹 出 “用 户 界面 ”对 话 杠 ， 直 接 单 击 “确定 ”按钮 ， 如 下 图 所 示 。 若 需要 弹出 提示 杠 ， 则 可 以 在 “User (代码 ) ”窗口 中 使 用 If...End If 语句 进行 
判断 。 


步骤 07 ”弹出 提示 框 。 当 “用 户 名 ”和 “密码 ”文本 框 为 空 时 ， 单 击 “ 确 定 ”按钮 后 将 弹出 提示 框 ， 提 示 用 户 输入 用 户 名 和 密码 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 


重点 语法 与 代码 剖析 : 判断 “用 户 名 ”和 “密码 ”文本 框 是 否 为 空 


Private usetnamem As String 
Private usetcodec As Stting 
usetnamem=UsetName.Value 
usetcodec=UserCode.Value 
If usernamem=""Or usercodec=""Then 
MsgBox" 请 输入 用 户 名 或 密码 " 
Exit Sub 
End If 
该 代码 主要 使 用 If…End If 语句 判断 “用 户 名 和 “密码 ”文本 框 是 否 为 空 ， 如 果 为 空 ， 则 使 用 对 话 框 弹 出 提示 。 


步骤 08 ”输入 修改 权限 用 户 。 若 要 修改 工作 筹 中 的 内 容 ， 在 “用 户 界面 ” 窗 体 中 输入 修改 权限 用 户 “ 谢 鹏 ”及 密码 “XP5643”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 
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人 Microsoft Exce| 将 永久 删除 此 工作 表 ， 是 否 继续 ? 


Co 


.… | 值班 证 件 列表 | 工作 证 模板 | 什 班 安 Sheet4 


步骤 10 ”查看 有 修改 权限 用 户 的 效果 。 此 时 所 有 隐藏 的 工作 表 都 显示 出 来 了 ， 并 且 撤 销 了 所 有 工作 表 的 保护 。 例 如 ， 在 “ 单 竟 ”工作 表 中 选中 单元 格 B3， 按 Delete 键 ， 即 可 删除 单元 格 B3 中 的 内 容 ， 如 
右 图 所 示 。 


重点 语法 与 代码 剖析 : 删除 工作 表 的 代码 

首先 定义 Shts 变 量 ， 用 于 存储 新 建 工作 表 后 工作 表 的 个 数 ， 再 使 用 Worksheets 对 象 的 Count 方 法 统计 工作 表 的 个 数 ， 并 将 其 赋值 给 Shts 交 量 ， 最 后 写 入 删除 工作 表 的 语句 。 上 有 具体 代码 如 下 。 
Dim Shts As Integer 

Shts=Worksheets.Count 


Worksheets (Shts) .Delete 


第 6 草 ”考勤 管理 系统 


考勤 管理 是 指 公 司 对 员工 的 出 勤 情 况 进 行 记录 和 考核 ， 是 公司 管理 中 最 基本 的 制度 之 一 ， 它 能 够 规范 全 体 员 工 的 工作 态度 和 工作 行为 ， 从 而 提升 工作 业绩 。 本 章 将 使 用 VBA 程 序 代码 制作 一 个 考勤 管理 
系统 ， 实 现 自动 创建 考勤 表 ， 自 动 拆 分 窗 格 以 便 比较 当月 员工 考勤 情况 ， 以 及 自动 拆 分 工作 筹 以 便 比较 两 个 月 的 员工 考勤 情况 等 功能 。 


6.1 自动 创建 考勤 表 


考勤 表 每 个 月 都 需要 制作 一 张 ， 因 为 每 个 月 的 工作 日 是 不 同 的 ， 这 样 一 张 一 张 地 制作 考勤 表 既 费时 又 费力 。 本 节 将 详细 介绍 如 何 使 用 VBA 程 序 代码 自动 创建 考勤 表 ， 并 且 冻 结 考 勤 表 表 头 。 在 自动 创建 
的 考勤 表 中 还 需要 包含 斜 线 表 头 ， 以 及 自动 根据 输入 的 月 份 统计 当月 天 数 并 获取 相应 的 工作 日 数 。 


要 码 看 视频 


he 


Le F: 无 


:实例 文件 \ 第 6 章 \ 最 终 文 件 \ 自 动 创建 考勤 表 .xlsm 


本 小 节 将 编写 VBA 代 码 实 现 自动 根据 用 户 输入 的 月 份 (用 于 自动 计算 工作 日 ) 和 人 数 创建 空白 的 考勤 表 的 主体 部 分 ， 并 调整 行 高 和 列 完 ， 设 置 边框 样式 等 ， 具 体操 作 如 下 。 


| ”进入 VBE 编 程 环境 。 新 建 一 个 空白 工作 簿 ,将 其 另存 为 “自动 创建 考勤 表 .xlsm”， 然 后 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 。 


步骤 02 插入 模块 。 进 入 VBE 编 程 环 境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (自动 创建 考勤 表 .xlsm) “ 


田 - 嫩 Solver (SOLYEE. ILARN) 
由 - YBAProject (FUNCERES. ILAE) 


日 对 VBAProject (自动 创建 考 勒 表 . 


晶 " 信 | Microsoft Exce] 对 象 
.图 | Sheetl (Sheetl) 
图 | Sheet2 (Sheet2) 

I (Sheet3) 
I This¥orkbook 


步骤 03 ”编写 “自动 创建 考勤 表 ()” 过 程 的 代码 。 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 创建 考勤 表 0” 


份 ; 


但 膨 代 倘 ( 品 ) 


音 看 对 肩 (B) 


导 人 区 件 山 … 
导出 立 件 (E) 

称 险 (R) 

打印 四 .… 


选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 ”命令 ,如 下 图 所 示 。 


过 程 的 第 1 部 分 代码 ， 用 于 获取 用 户 输入 的 考勤 表 月 


SEE 
Din ola AS lptee er 


二 得 十 程 
sub 自动 创建 考勤 表 0 
A 和 is Worksheet 
sht = ctiveSsheet 
" 丹 明 量 存储 给 下 的 考勤 表 月 份 
Dim monthl 点 S String 
Msc: 


nonthl = InputBox 人 
Title:=” 输 入 考勤 表 月 份 ” 


步骤 04 ”编写 代码 写 入 考勤 表 的 标题 内 容 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 创建 考勤 表 0” 过 程 的 第 2 部 分 代码 ， 用 于 检查 用 户 输入 的 数据 是 否 合法 ， 
然后 以 月 份 重 命名 工作 表 ， 并 写 入 考勤 表 的 标题 内 容 。 


(通用 ) 自动 
" 调用 上 自 定 义 国 数 检 查 用 己 输 入 十 否 合 法 


Dim result As Boolean 

result = IsNun monthl) 

It result = False Then 
MsgEBoxz “和 输 六 的 内 容 不 育 法 ， 请 重新 输入 ” 
olo SC 

End It 

"重合 名 工作 表 | 

sht. Name = monthl +“ 月 份 ” 

将 考勤 表 的 标题 写 入 工作 表 

sht. Celle ot 1) = “2018 年 ”& monthl _ 

“月 份 各 工 考勤 表 ” 


知识 链接 ”设置 输入 对 话 框 的 标题 
InputBox0 函 数 的 Title 参 数 用 于 设置 对 话 框 的 标题 ， 给 用 户 提 供 更 多 信息 。 


步骤 05 编写 代码 写 入 考勤 表 字段 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 创建 考勤 表 0” 过 程 的 第 3 部 分 代码 ， 用 于 将 考勤 表 的 固定 字段 写 入 相应 的 单元 格 
中 ， 然 后 调用 自 定义 的 “自动 填充 工作 日 0” 过 程 写 入 指定 月 对 应 的 工作 日 日 期 。 


E-Tenel 


“输入 考勤 表 固定 字段 加 
sht.Cells (2，1) =“ 序 亏 ” 
sht.Cells(2,， 2) = “姓名 ” 
sht. Cells {2, 3) =“ 时 间 \ 日 期” 

' 自动 生成 工作 日 日 期 
四 理光 工作 站 Gonthi) 


步骤 06 ”编写 代码 设置 “工作 日 数 ”等 字段 的 文本 方向 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 创建 考勤 表 (0” 过 程 的 第 4 部 分 代码 ， 使 用 Range.Orientation 属 
性 设置 指定 区 域 的 文本 方向 ， 使 用 Range.ReadingOrder 属 性 设置 阅读 顺序 。 


自动 创建 考 勒 表 v| 


和 
With sht.Range(Cells (2, col2 + 1), 
Cells (2, col2 + 5)) 
. HorizontalAilierment = xlGeneral 
.VerticalAlienment = xlTop 
. WrapText = False 
.Orientation = xlVertical 


.LddIndent = sa 
. IndentLevel = 
. ShrinkToF1it = False 
. ReadinzOrder = xlContext 
.NerzeCells = False 
End With 


重点 语法 与 代码 剖析 : Range.Orientation 与 Range.ReadingOrder 属 性 的 用 法 


在 步骤 06 中 ， 使 用 Range.Ortientation 属 性 和 Range.ReadingOtdet 属 性 设置 文本 的 方向 和 阅读 顺序 。 


Range.Oftientation 属 性 用 于 返回 或 设置 一 个 Vatiant 值 ， 它 代表 文本 方向 。 其 语法 格式 为 : 表达 式 .Orientation。 其 中 ，“ 表 达 式 ”是 一 个 代表 Range 对 象 的 变量 。 此 属性 的 值 可 为 -90”~90” 之 间 的 整数 ， 
还 可 为 以 下 常量 : xlDownwatd (将 所 有 文字 旋转 90”) 、xlHorizontal (水 平方 向 ) 、xlUpward (将 所 有 文字 旋转 270”) 和 xlVertical (垂直 方向 ) 。 


Range.ReadingOrder 属 性 用 于 返回 或 设置 指定 对 象 的 阅读 顺序 。 它 可 为 以 下 常量 之 一 : xIRTL (从 右 到 左 ) 、xlLTR (从 左 到 右 ) 或 xlContext， 其 数据 类 型 为 Long 类 型 。 


步骤 07 编写 代码 输入 员工 人 数 创建 考勤 表 表 格 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 创建 考勤 表 0” 过 程 的 第 5 部 分 代码 ， 用 于 获取 用 户 输入 的 员工 人 数 ， 
循环 制作 员工 上 下 午 考勤 表格 ， 并 合并 同一 员工 的 序号 和 姓名 单元 格 。 


(通用 ) v 
"根据 用 户 输入 的 员工 个 数 创建 上 下 午 考勤 表格 x 


Dim num As Strine 


ms: 
= InputBox ”请 译 答 入 创建 者 拐 表 表格 的 员工 八 数 ”， 
Title:= “输入 员工 人 数 全 
result = IsNunl (nunm) 
It result = False Then | 
fsgBox “输入 的 内 容 不 语法 ， 请 草 新 输入 ” 
Golo ms 
End I 
For 1 = 1 To nun 
Cellst2*i + 1，3) =“ 上 竺 ” 
Cells(i * 2 + 2， 引 = “下 午 ” 
sht. Range (Cells (2 + 1，1)，_ 
Cellstli * 2 + 2, 1)). Merge 
Ranze (Cellst2*i+ 2) ， 
Cells(2*i+2 ). 
Next 1 


1) 
1， 
2) 


Merge 


步骤 08 ”编写 代码 设置 考勤 表 的 行 高 和 列 宽 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 创建 考勤 表 0” 过 程 的 第 6 部 分 代码 ， 用 于 设置 从 第 2 行 第 4 列 开始 人 至 表格 末 
尾 的 行 高 和 列 宽 ， 然 后 设置 考勤 表 的 标题 格式 。 


' 设 着 指定 单元 格 的 列 宽 和 行 高 
With sht.RangetCellsk2， 帆 ，_ 
Cells(2 本 nmum + 2, col2 + 5)) 
.RowHelght = 20 
.ColumnnWidth = 3 


End With 、 | 
"设置 标题 字体 格式 | | | 
With sht. Rangze (Cells(1l, 1), Cells(l, col2 + 5)) 


. Mergze 
. Horizontalhlienment = xlCenter 
.VerticalAlienment = xlCenter 
.Font. Name = “黑体 ” 
.Font. Slize = 24 
.Font. Bold = True 
.RowHeleght = 30 
End YWith 


步骤 09 编写 代码 设置 字段 项 目的 格式 和 行 高。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 创建 考勤 表 0” 过 程 的 第 7 部 分 代码 ， 用 于 设置 字段 格式 和 自动 调整 行 
高 ， 然 后 为 考勤 表 添 加 边框 。 


( 瑶 用 ) v 自动 创建 考 勒 表 
" 设 盏 字段 格式 和 行 高 四 
With sht. Range (Cells (2, 1), Cells(2, col2 + 5)) 
.Font. Name = “ 汰 必 
.Font. Bold = True 
. Rows. AutoF1t 
End With 
' 添加 考勤 表 边 框 
With sht. Range(Cells (1l, 1), 
Cells(2 * num + 2, col2 + 5)) 
, Borders (xlDiagonalDown) . LineSstyle = xlNone 
. Borders (xlDiagonalUn) .LineStyle = xlNone 
With . Borders (xlEdgeLeftty) 
.LineStyle = XlContinuous 
.ColorIndex = xliutomatlc 
.TintAndshade = 0 
.Welght = xlThin 
End With 


步骤 10 ”编写 代码 设置 上 下 边框 的 样式 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 创建 考勤 表 0” 过 程 的 第 8 部 分 代码 ， 用 于 设置 考勤 表 上 边框 和 下 边框 的 线条 样 
式 、 颜 色 和 粗细 等 。 


With .Borders (xlEdeeTop) 
.LineSstyle = xlContinuous 
.ColorIndex = xliutomatic 
.TinthindSshade = 0 
. Weight = xlThin 

End With : 

With .Borders (xlEdgeBottonm) 
.LineStyle = xlContinuous 
.ColorIndex = xliutomatic 
.TIntandshade = 0 
.Weight = xlThin 

End With 


步骤 11 ”编写 代码 设置 右边 框 和 所 有 单元 格 的 垂直 线条 样式 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 创建 考勤 表 (0” 过 程 的 第 9 部 分 代码 ， 用 于 设置 右边 框 和 所 
有 单元 格 的 垂直 线条 样式 。 


自动 创建 考 勒 表 

With .Borders (xlEdgeRigeht) 
.LIneStyle = xlContinuous 
.ColorIndex = xliutomatlc 
.TintAndSshade = 0 
.Weight = xlThin 

End With 

With .Borders (xlInsidevVertical) 
.Linestyle = xlContinuous 
.ColorIndex = xlAiutomatlc 
.TintAndshade = 0 
. Weight = xlThin 

End With 


步骤 12 ”定义 变量 创建 斜 线 表 头 单元 格 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 创建 考勤 表 0” 过 程 的 第 10 部 分 代码 ， 用 于 设置 所 有 单元 格 的 水 平 线条 样式 ， 然 
后 获取 和 斜 线 表 头 单元 格 的 行 号 与 列 号 。 


(一 用 ) ~ | | 自动 创建 考 勒 表 ww 


With .Borders (xlInsideHorizontal) 
.LineSstyle = xlContinuous 
.ColorIndex = xlAutomatic 
.Tintandohade = 0 
.Weieht = xlThin 
A 


nd 
党 明 起 鲁 存 依 创 建 笠 线 表 头 单元 格 的 行 亏 和 列 亏 
Dim rowl hs Integer 
Dim col As Inteser 
rowl = sht.Cells(2, 3).row 
col = sht.Cells (2,，3).Colunn 


上 


步骤 13 ”编写 代码 冻结 表 头 并 隐藏 工作 表 网 格 线 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 创建 考勤 表 0” 过 程 的 最 后 一 部 分 代码 ， 主 要 调用 自 定义 的 “ 斜 分 单元 
格 0” 过 程 创 建 斜 线 表 头 ， 然 后 选 定单 元 格 冻 结 表 头 ， 再 隐藏 工作 表 网 格 线 。 


笠 分 单元 : Ne Fowl a 

' 选择 需要 冻结 的 单元 格 

Dim alcel1 Ais Rangee 

Set MSE = 贞 10atl on InputBox 
请 选择 需 办 结 的 


wt, Select 


单元 格 ”，Type:=8) 


?以 指 定单 元 格 为 基准 冻结 考勤 表 未 头 


ActliveWindow. FreezePanes = True 

" 隐 着 工作 表 中 有 的 网 格 续 

ActiveWindow. DisplayGridlines = False 
End Sub 


步骤 14 ” 自 定 义 IsSNum0 浮 数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 自 定义 IsSNum0) 浮 数 的 前 半 部 分 代码 ， 用 于 判断 是 否 已 输入 月 份 数据 。 如 果 没 有 输入 数据 ， 函 数 
值 为 False， 并 强制 退出 函数 。 如 果 已 输入 数据 ， 会 将 输入 的 数据 强制 转换 为 整数 型 数据 。 


和 六 的 月 份 是 否 合 法 人 


ion IsNumtmonthl As String) As Boolean 
中 到 十 才 窒 入 任何 内 容 
If monthl = “° Then 
IsHun = False 
了 Funct1lon 


* 昔 襄 站 理 


On Rrror Golo er 
Dim Test As Integer 
Test = CInt (monthl) 


重点 语法 与 代码 剖析 : Window.FreezePanes 属 性 的 用 法 


Window.FreezePanes 属 性 用 于 指定 是 否 冻 结 窗 格 ， 数 据 类 型 为 Boolean 类 型 。 如 果 拆 分 窗 格 被 冻结 ， 则 该 属性 值 为 True。 其 语法 格式 为 : 表达 式 .FreezePanes。 其 中 ，“ 表 达 式 ”是 一 个 代表 Window 对 象 的 


hl 


变 


步骤 15 ”编写 代码 判断 用 户 输入 的 月 份 是 否 符合 指定 的 范围 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代 码 是 IsSNum( 函 数 的 后 半 部 分 代码 ， 用 于 判断 用 户 输入 的 月 份 是 否 在 
1~ 12 之 间 。 如 果 是 ， 函 数 返 回 值 为 True; 反之 ， 则 为 False。 


If Test » 0 and Test 《= 12 Then 
lsNum = True 

Else 
IsNum = False 

End If 

Exit Functlon 


er: 
IsNHum = False 
End Function 


步骤 16 编写 代码 判断 用 户 输入 的 员工 人 数 是 否 正确 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 是 lsSNum10 函 数 的 前 半 部 分 代码 ， 用 于 检测 用 户 是 否 已 输入 员工 人 数 。 


` 检测 输入 的 员工 人 数 是 否 正确 


Function IsNuml (num As Strine) As Boolean 
"判断 是 否 输 入 任何 内 容 
It num = Then 
IsNuml = False 
Exit Function 
End I+t 


步骤 17 编写 代码 检测 用 户 输 入 的 人 数 是 否 合法 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 IsSNum1() 函 数 的 后 半 部 分 代码 ， 用 于 检测 输入 的 员工 人 数值 是 否 大 于 0。 如 果 
大 于 0， 国 数 返回 值 为 True; 反之 ， 则 为 False。 


Cn 要 


' 错 读 处 理 
On Rrror Golo er 
Dim Test As Integer 
Test = CInt (nunm) 

It Test >» 0 Then 
lsNuml] = Irue 
Exit Functlon 

Else 
IsNuml = False 

End I 

BT : 

IsNuml = False 

End Funct1on 


6.1.2 ”编写 代码 设置 斜 线 表 头 


编写 完 创建 表格 主体 部 分 的 过 程 代码 后 ， 本 小 节 接 着 编写 创建 斜 线 表 头 的 过 程 代码 。 具 体操 作 如 下 。 


步骤 01 自 定义 “和 斜 分 单元 格 0” 过 程 。 继 续 上 一 小 节 的 操作 ， 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “ 斜 分 单元 格 0” 过 程 的 第 1 部 分 代码 ， 用 于 添加 单元 格 左上 角 至 
右 下 角 的 斜 线 ， 然 后 设置 该 斜 线 的 样式 。 


' 制作 笠 线 表 状 的 过 程 代 码 
sub 笠 分 单元 格 (sht As Worksheet, row As Integer, _ 
col As Integer) 
sht, Cells (row, col).Select 
"设置 站 上 至 右 下 的 笠 线 
With Selection. Borders (xlDiagonalDown) 
.LineSstyle = xlContinuous 
.Welght = xlThin 
.ColorIndex = xliutomatic 
End YWith 


步骤 02 ”编写 代码 查找 人 ”符号 的 位 置 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “和 斜 分 单元 格 0” 过 程 的 第 2 部 分 代码 ， 用 于 去 除 指定 单元 格 中 的 空格 ， 然 后 使 用 
Instr(0 函 数 查 找 人 ”符号 的 位 置 并 记录 下 来 。 


(通用 ) v| [ 铬 分 单元 格 ~ 
' 声明 字符 串 变 如 A 


Dim alm As Strine 
Dim mid AS Integer 
获取 所 选区 域 的 字符 串 
alin = Selection,. Value 
去 只 于 全 再 中 的 村 本 
al = Repla Ce (ainm, 
' 查找 “\” 符 号 ,并 全 
nid = Instr(l, aim, | 


病 疼 


高 手 点 拨 : 设置 单元 格 左 上 至 右 下 的 斜 线 

在 步骤 01 的 代码 段 中 ， 使 用 Bordets 集 合 中 的 xlDiagonalDown 常 量 表示 当前 设置 的 边框 样式 是 选中 区 域 每 个 单元 格 左 上 角 至 右 下 角 的 边框 。 

步骤 03 ”编写 代码 蔡 换 字符 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “ 斜 分 单元 格 0” 过 程 的 第 3 部 分 代码 ， 使 用 Replace() 函 数 蔡 换 指 定 字 符 串 中 的 人 ”字符 为 空格 ， 
然后 将 获取 的 字符 串 写 入 单元 格 。 


二 用 ) 


"将 “2 符号 替 
aim = i 的 ee 
"将 经 过 修改 的 内 容 与 回 里 元 格 
SO eta or Value = ， 

于 串 是 否 人 村 

If nid = 0 Then 

Exit Sub 
End I 


步骤 04 ”编写 代码 设置 左下 字符 串 的 字体 格式 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “和 斜 分 单元 格 ()” 过 程 的 第 4 部 分 代码 ， 用 于 设置 左下 字符 串 的 字体 格式 ， 并 将 
其 设置 为 下 标 。 


' 设 首 左下 字 侍 串 的 格式 
With Selection.Characters (Start:=1, 
Lenzth:=nid — 1).Font 
.Name = “宋体 ” 
. Slze = 16 
.Strikethrough = False 
.Superscript = False  ___ 
. Subscript = True “人 设 为 下 标 
.DutlineFont = False 
. Shadow = False 
. Underline = xlUnderlineSstyleNone 
.ColorIndex = xlAiutomatic 
End YWith 


步骤 05 ”编写 代码 设置 右上 字符 串 的 字体 格式 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “ 斜 分 单元 格 0” 过 程 的 第 ?部 分 代码 ， 用 于 设置 右上 字符 串 的 字体 格式 ， 并 将 
其 设置 为 上 标 。 


| (通用 ) 


上 
Lenzth 


画 
别 | 


=Lentaim) - nid .Font 
宋体 ” 
. S12Z8 : 


= 16 
. Strikethrougeh = False 


With Selection. Characters (Start:=mid + 1, 
. Name 


. Superscript 


True ” 设 为 上 标 
Subscript = False 
.OutlineFont = False 
Shadow 


. Sha = False 
.Underline = 


.ColorIndex = xliutomatic 
End With 


xlUnderlineSstyleNone 


步骤 06 ”编写 代码 自动 调整 行 高 和 列 宽 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “和 斜 分 单元 格 ()” 过 程 的 最 后 一 部 分 代码 ， 用 于 自动 调整 选 定单 元 格 的 行 高 和 列 宽 


| | 
| | 


(通用 ) ~ | | 斜 分 单元 格 v 


"上 自动 调整 所 选区 域 的 行 高 和 列 宽 
With Selectlion 
. Rows. AutoF1t 
.Columns. AutoF1t 
End With 
End Sub 


重点 语法 与 代码 剖析 : 设置 字符 串 格 式 

在 步骤 04 和 05 的 代码 段 中 ， 使 用 Chatactets 对 象 的 Font 属 性 返回 一 个 Font 对 象 ， 再 利用 该 Font 对 象 的 属性 设置 选中 字符 的 格式 。 其 中 ， 使 用 Chatactets (statt，length) (start 为 起 始 字符 序号 ，length 为 要 返 
回 的 字符 个 数 ) 返回 Charactets 对 象 。 使 用 Font.Subsctipt 属 性 设置 指定 字符 为 下 标 。 如 果 字 体格 式 设 置 为 下 标 ， 则 该 属性 值 为 Ttue。 其 默认 值 为 False， 数 据 类 型 为 Vatiant 类 型 ， 语 法 格式 为 : 表达 式 .Subsctipt。 
其 中 ，“ 表 达 式 ”是 一 个 代表 Font 对 象 的 变量 。 使 用 Font.Supetsctipt 属 性 设置 指定 字符 为 上 标 ， 如 果 该 属性 的 值 为 True， 那 么 指定 字符 被 设置 为 上 标 ， 黑 认 值 为 False。 注 意 : Font 对 象 的 Supetsctipt 和 Subsctipt 
属性 不 能 同时 为 True， 因 为 一 个 字符 不 能 既 被 指定 为 上 标 ， 又 被 指定 为 下 标 。 

步骤 07 ”编写 “自动 填充 工作 日 0” 过 程 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 填充 工作 日 0” 过 程 的 第 1 部 分 代码 ， 调 用 自 定义 的 MDay(0 函 数 获取 指 


定 月 份 的 天 数 。 


| 通用) | | 自动 填充 工作 日 


自动 坟 襄 王 作 月 区 过 程 代码 
onthl is Integer) 


出 


Dim days As Integer 

Dim xdate Ms Date 

xdate = CDate( 2018-”+ CStr (monthl)) 
' 初 她 化 公共 变 对 col2 有 的 值 


12 = 4 
“调和 用 自 定义 的 fday 0 函数 获取 指定 月 份 的 天 数 
days = MDay (xdate) 


步骤 08 编写 代码 将 工作 日 日 期 写 入 相应 的 单元 格 中 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 指定 月 份 的 每 一 天 是 否 为 休息 日 。 如 果 不 是 ， 则 将 日 期 写 入 相应 
的 单元 格 中 。 


| (通用 ) 
循环 获取 指 ET 


“ 呈 症 明度 星 存 伪 弱 定 日 期 


Din Curdate As String 
Demet = Ei + CSstrimonthl) + “—” 


,判断 指 时 因 斋 是 否 为 工作 日 
TE Yeekday (CCData (Curdate) ) <> vbSaturday _ 
And Weekday (CDate (Curdate)) <> vbSunday _ 


Then 
Cells(2, col?2) = i 
col2 = col2+1 
End I+ 
Next 1 


步骤 09 编写 代码 将 统计 日 期 数 的 固定 字段 写 入 相应 的 单元 格 中 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 填充 工作 日 0” 过 程 的 最 后 一 部 分 代码 ， 用 于 将 固定 字 
段 的 名 称 动态 写 入 相应 单元 格 。 


' 将 字段 名 瑟 入 相应 的 单元 格 中 
col2 = col2 - 
Cells (2, col2 
Cells(2, col2 


Cells (2, col2 

Cells ‘2, col2 

Cellst(2, col2 
End Sub 


步骤 10 ” 自 定义 获取 指定 月 份 天 数 的 函数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 结合 使 用 Dateserial( 与 Date(0 函 数 ， 返 回 指定 月 份 的 最 后 一 日 ， 即 指定 月 份 的 天 数 。 


获取 指定 月 份 的 天 数 的 目 定 基因 数 
Public Function JIDay(tOptional xdate _ 
AS Yariant = 0) hs Integer 
If IsDate(xdate) Then 


JDay = Day(DateSerial (Year (xdate), _ 
Jonthkxdate) + 1, 0)) 


Else 
NDay = U 
End I+t 
End Functlion 


重点 语法 与 代码 剖析 : 获取 指定 月 份 的 天 数 


MDay=Day (DateSetial (Year (xdate) ，Month (xdate) +1，0) ) 语句 用 于 获取 指定 月 份 的 天 数 。 其 中 ，DateSetial (year，month，day) 函数 会 根据 给 出 的 年 、 月 、 上 日 参数 返回 相应 的 日 期 数据 ; 
Day (date) 函数 会 根据 给 出 的 日 期 参数 返回 相应 的 天 数 ， 如 Day ("2018-5-24") 将 返回 24。 在 该 语句 中 ，xqate 变 量 保存 的 是 指定 的 年 份 和 月 份 ; Year (xdate) 获取 xdate 中 的 年 份 ， 作 为 yeat 参 数 ; 
Month (xdate) 获取 xdate 中 的 月 份 ，Month (xdate) +1 则 代表 下 个 月 ， 作 为 month 参 数 ; day 参 数 设置 为 0， 实 际 上 是 由 1-1 计 算 而 来 ，1 代 表 Month (xdate) +1 的 第 一 天 ，1-1 则 代表 Month (xdate) +1 的 第 一 天 
的 前 一 天 ， 即 Month (xdate) 的 最 后 一 天 ; 这 样 ，DateSetial (Year (xdate) ，Month (xdate) +1，0) 返回 的 是 xdate 中 指定 年 份 和 月 份 的 最 末 一 天 的 日 期 ， 再 通过 Day0 函 数 的 处 理 ， 便 得 到 指定 月 份 的 天 数 。 


6.1.3 ”运行 代码 创建 考勤 表 


前 两 个 小 节 完成 了 代码 的 编写 ， 本 小 节 就 来 运行 代码 ， 对 代码 的 运行 效果 进行 测试 ， 具 体操 作 如 下 。 


步骤 01 打开 “ 宏 ” 对 话 框 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ”组 中 的 “ 宏 ” 按 钮 ， 如 下 图 所 示 。 


加 Excel COM 加 
载 项 加载 项 


加 就 其 


= = 一 一 
自动 创 涟 考勤 表 


步骤 03 ”输入 创建 考勤 表 的 月 份 。 弹 出 “输入 考勤 表 月 份 ”对 话 框 ， 在 文本 框 中 输入 “一 ”， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


ODDOA DA 人 人 


Microsoft Excel 


步骤 05 不 输入 考勤 表 的 月 份 。 在 “输入 考勤 表 月 份 ” 对 话 框 的 文本 框 中 不 输入 任何 值 ， 直 接 单 击 “确定 ”按钮 ， 如 下 图 所 示 。 


HL Co 上 


9 
6 
? 
8 


步骤 07 ”重新 输入 考勤 表 的 月 份 。 在 “输入 考勤 表 月 份 ” 对 话 框 的 文本 框 中 输入 “1”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


1 | 
2 | 
3 | 
4 | 
9 _ | 
3 | 
3 | 


步骤 09 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 输入 的 内 容 不 合法 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


姓名 时 间 \ 日 期 


Microsoft Excel 并 


mn 


步骤 11 弹出 提示 框 。 仍 然 弹 出 提示 框 ， 提 示 用 户 输入 的 内 容 不 合法 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


姓名 时 | 司 \ 日 其 


Microsoft Exce| 


步骤 13 ” 选 定 冻结 窗 格 的 单元 格 。 此 时 弹出 “输入 ”对 话 框 ， 可 以 输入 冻结 窗 格 的 基准 单元 格 ， 如 单元 格 D3， 单 击 “ 确 定 ”按钮 ， 如 下 左 图 所 示 。 


2018 年 1 月 份 职工 考勤 表 


1 月 份 | Sheet2 cheet3 


- ™ 
oP) 


步骤 15 ”查看 冻结 窗 格 的 效果 。 向 下 拖 动 Exce| 窗 口 右 侧 的 滚动 条 ， 可 以 看 到 考勤 表 的 标题 和 字段 项 目 始终 显示 在 工作 表 中 ， 如 下 图 所 示 。 


by fH - jj | 民工 | U FT IQ | | 
2018 年 1 月 份 职工 考勤 表 


1| 2| 3| #4| 5| 8 9 10| 11| 12| 15| 16| 17| 18| 13| 2 | 


下 十 


下 和 
1 月 贡 sheetz Sheet3 


步骤 16 ”继续 查看 冻结 窗 格 的 效果 。 向 右 拖 动 Excel 窗 口 下 方 的 滚动 条 ， 可 以 看 到 考勤 表 的 序号 、 姓 名 、 时 间 / 日 期 字段 列 的 内 容 始终 显示 在 工作 表 中 ， 如 下 图 所 示 。 


B [EIF IGIH I II RILINIIIPBIRIS 
| 2018 年 1 月 份 职 工 考勤 表 


2| 3| #4| 5| 8| 9| 10| 11| 12| 15| 16| 17| 18| 19| 22| 23| 24 


了 T|TI 


FT 
瞩 
本 加 本 丁丁 本 本 加 


呈 本 本 柄 本国 

胃 硬 硬 面 辆 面 硬 面 古本 
14 和 国 国 于 国 国 国 国 夺 硬 国 轩 国 济 
15 计时 上 和 国 国 国 国 故国 国 轩 图 国 硬 硬 
16 ET 站 
7 下 叶柄 硬 硬 辆 硬 辆 硬 古本 硬 硬 本 
下 下 午 | 


1 月 份 | Sheet2 | Sheet3 十 | 


6.2 ” 目 动 拆 分 窗 格 比较 当月 考勤 情况 


本 节 将 在 上 一 节 创 建 的 “自动 创建 考勤 表 .xlsm” 工 作 簿 的 基础 上 ， 输 入 员工 的 序号 和 姓名 ， 填 写 相应 的 考勤 情况 ， 再 编写 VBA 程 序 代码 统计 各 类 请 假日 数 和 工作 天 数 等 数据 ， 并 编写 VBA 程 序 代码 进行 
窗 格 拆 分 ， 以 便 比 较 当 月 不 同 员工 的 考勤 情况 。 


要 码 看 视频 


he 


Le 上 : 实例 文件 \ 第 6 章 \ 原 始 文件 \ 拆 分 窗 格 比较 当月 员工 出 勤 情况 .xlsm 


: 实例 文件 \ 第 6 章 \ 最 终 文件 \ 拆 分 窗 格 比 较 当月 员工 出 勤 情 况 .xlsm 


将 当月 各 员工 的 考勤 情况 (如 迟到 次 数 、 请 病假 或 事假 的 天 数 等 ) 录入 相应 的 单元 格 中 后 ， 就 需要 按照 公司 考勤 制度 的 相关 规定 ， 对 当月 各 员工 的 考勤 情况 进行 统计 。 本 小 节 将 通过 编写 VBA 代 码 来 快 
速 完成 统计 工作 。 具 体操 作 如 下 。 


| 输入 考勤 记录 。 打 开 原 始 文件 ， 在 “序号 ”和 “姓名 ” 列 中 输入 员工 的 序号 和 姓名 ， 再 输入 每 天 的 迟到 、 请 假 等 情况 ， 如 下 左 图 所 示 。 填 写 时 用 1 代表 迟到 ， 用 2 代表 病假 ， 用 3 代表 工伤 假 ， 
用 4 代表 婚 瑚 假 。 


L |H|IHIOIF|Q|IR 


“2018 年 1 月 份 职工 考勤 表 


本 一 本 面 面 面 面 国 国 面 面 醒 面 面 面 面 面 西国 面 面 醒 面 面 
人 和 


Sheet3 外 


田 邮 Solver (SOLYER. ILAN) 

四 上 丹 YBAProject (FUENCEES. ILAN) 

目 : | FEAT ] 二 写 让 [ 拍 侣 窗 按 绪 边 当 日 十 中 和 和 畦 剖 . |] =nm) 
查看 代码 (QQ) | 


音 看 对 蒙 (B) 


VBAProject 历 性 {E)..， 


由 -和 模块 


= (EE).. 
称 降 (R) 


步骤 03 ”编写 “自动 统计 各 类 日 数 0” 过 程 代码 。 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 统计 各 类 日 数 0” 过 程 的 第 1 部 分 代码 ， 用 于 获取 当前 工作 表 的 行 数 和 
列 数 。 


"自动 统计 各 过程 贷 
sub 自动 统计 各 类 日 数 

Dim sht Ls Flr til 

Set sht = ActiveSheet 

Dim rowNunm As Integer 

Dim col hs Integer 


rowNum = sht. Rangel( A2”).CurrentRegion _ 
.Rows. Lount 

col = sht. Ranee(’ a2 ) .CurrentRegion _ 
.Colunmns. Count 


步骤 04 ”声明 变量 保存 各 类 日 数 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 统计 各 类 日 数 0)” 过 程 的 第 2 部 分 代码 ， 用 于 声明 存储 各 类 日 数 的 变量 。 


信用 ) “| [自动 生计 类 
"循环 累加 每 个 员工 上 午 、 下 午 的 请 假 和 工作 日 


中 黄 明 变量 Wa 存 髓 忆 到 入 数 
D1n Wdays As Intege 


days: 生生 病人 日 数 
D1n Hd ays Ls 


内 


寺 明 代 业 ds 存储 于 假日 数 
D1n a As Inte 


吉明 变 全 Mday 存 条 交 表 候 日 
Din Ndays hs 


震 明 塞 冤 存 铺 闪 稍 应 工作 天 娄 


Dim days hs Integer 


步骤 05 初始 化 变量 并 获取 指定 单元 格 的 值 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 统计 各 类 日 数 0)” 过 程 的 第 3 部 分 代码 ， 用 于 为 各 变量 赋 初 值 ， 并 将 指定 单 
元 格 的 值 赋 给 变量 aim。 


| 


自动 统计 各 类 日 数 v 
' 初始 化 变 芋 的 值 
Wdays = 0 
Hdays = 
Idays 
Mdays = 


days = 0 加 

"声明 变量 ain 存 悄 指 定单 元 格 的 值 

Dim aim bs lnteser 

For ] = 4To col -5 | 
ainm = CIntiCells(i, .Value) 


步骤 06 编写 代码 统计 各 类 日 数 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 统计 各 类 日 数 0” 过 程 的 第 4 部 分 代码 ， 该 段 代码 使 用 select Case 语 句 进行 分 类 统计 。 


Select Case 
Lase 1 
Wdays 
Case 2 
Hdays 
LASB 3 
Idays 
Lase 4 
Ndays 

End select 

days = days 

Next ] 


知识 链接 ”快速 统计 各 类 日 数 


员工 缺勤 的 各 类 日 数 是 每 种 缺勤 项 目的 数值 分 别 累加 ， 此 处 在 填写 表格 时 用 不 同 数字 代表 不 同 的 缺勤 项 目 ， 然 后 使 用 Select Case 语 名 按 不 同 数字 分 别 进行 累加 。 


步骤 07 ”编写 代码 将 统计 出 的 各 类 日 数 写 入 相应 单元 格 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 将 计算 出 的 各 类 日 数 写 入 相应 的 单元 格 中 ， 然 后 隐藏 工作 表 中 的 零 
值 。 


将 计算 得 到 的 日 数 写 和 下 
"计算 只 工 工作 的 自 关 
Ws col -由 = days - Wdays - 
— Idays — Mdays 
将 病 仿 泊 牙 写 人 定语 的 单 计生 中 
Cells ti col - 3) = Hdays 


-将 从 和 妆 写 入 相应 的 昌 元 格 中 

Cells ti col — 

将 婚 声 假日 写 凡 相 太 是 明生 格 中 

Cells ti col — 1) = Mda 

* 兰 术 月 的 全 半 工 作 晶 数 号 欠条 应 的 单元 格 中 
We (i, col) = days 


' 隧 总 工作 表 中 的 0 值 


ActiveWindow. DisplayZeros = False 
End Sub 


步骤 08 运行 “自动 统计 各 类 日 数 ”过 程 代码 。 返 回 Excel 视 图 ， 按 Alt+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 自 动 统计 各 类 日 数 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


3(®) 


步骤 09 查看 统计 结果 。 程 序 执行 完毕 后 ， 工 作 表 中 的 各 类 日 数列 下 都 填 入 了 相应 的 统计 结果 ， 如 右 图 所 示 。 
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6.2.2 ”编号 代 码 按 指定 单元 格 拆 分 工作 表 


拆 分 工作 表 窗 格 分 为 “ 按 指定 单元 格 拆 分 ”和 “ 按 指定 位 置 拆 分 ”两 种 情况 。 本 小 节 将 编写 VBA 代 码 按 指定 单元 格 拆 分 工作 表 ， 具 体操 作 如 下 。 


步骤 01 编写 “指定 单元 格 拆 分 工作 表 ()” 过 程 代码 。 进 入 VBE 编 程 环境 ,插入 “模块 3”， 在 “模块 3 (代码 ) ”窗口 中 输入 如 下 左 图 所 示 的 代码 段 ， 其 中 使 用 Window.SplitRow 和 和 
Window.SplitColumn 属 性 拆 分 窗 格 。 


AN 
引 | 


" 按 指定 单元 TR 
sub -指定 单元 折 分 工作 表 间 
声明 变 CT 相信 绪 笑 的 单元 格 
Dim alimncell] is Ranee 
et alMmcell = hpplication. InputBox _ 


分 窗 格 的 单元 格 “，_ 


Tit1e: 这 元 
让 角 蜂 吕 和 他 指定 单元 格 的 行 和 列 


Dim rowN hs Integser 
Din col hs Inteser 
rowN = almcell.row 

col = almcell.Colunn 

' 指定 窗口 折 分 成 窗 格 处 的 行 亏 
Activeyindow. SplitRow = rowh 

' 指定 窗口 拆 分 成 窗 格 处 的 列 亏 
ActiveWindow. SplitColumn = col 

End Sub 


步骤 02 执行 “指定 单元 格 拆 分 工作 表 ” 代 码 。 返 回 Excel 视 图 ， 按 Alt+F8 组 合 键 , 打开 “ 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 指 定单 元 格 拆 分 工作 表 ” 选 项 ， 单 击 “ 执 行 ”按钮 ， 如 下 右 图 所 


重点 语法 与 代码 剖析 : Window.SplitRow 和 Window.SplitColumn 属 性 的 用 法 


Window.SplitRow 属 性 用 于 返回 或 设置 将 指定 窗口 拆 分 成 窗 格 处 的 行 号 ( 拆 分 线 以 上 的 行 数 ) 。 其 数据 类 型 为 Long 类 型 ， 语 法 格式 为 : 表达 式 .SplitRow。 其 中 ，“ 表 达 式 ”是 一 个 代表 Window 对 象 的 变 


量 ， 该 属性 对 应 的 行 号 值 范 围 为 1 一 10485706 。 


Window.SplitColumn 属 性 用 于 返回 或 设置 将 指定 窗口 拆 分 成 窗 格 处 的 列 号 ( 拆 分 线 左 侧 的 列 数 ) 。 其 数据 类 型 为 Long 类 型 ， 语 法 格式 为 : 表达 式 .SplitColumn。 其 中 ，“ 表 达 式 ”是 一 个 代表 Window 对 象 
的 变量 ， 该 属性 对 应 的 列 号 值 范围 为 1 一 16384。 


步骤 03 ”选择 拆 分 处 的 单元 格 。 此 时 会 弹出 “选择 单元 格 ”对 话 框 ， 选 取 需 要 作为 拆 分 点 的 单元 格 ， 如 单元 格 B7， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 
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辣 国 因 亲 本 二 汪 记 天国 面 面 面 面 面 医 本 西国 面 面 面 本 
” rr TIIIIssdId|I11i1i1- 


步骤 04 查看 拆 分 窗 格 后 的 效果 。 程 序 执行 完毕 后 ， 工 作 表 就 会 以 选 定 单元 格 为 拆 分 点 进行 拆 分 ， 得 到 如 下 图 所 示 的 效果 。 
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步骤 05 ”比较 员工 考勤 情况 。 此 时 便 可 拖 动 滚动 条 ， 对 比 工作 表 中 相距 较 远 的 两 个 员工 的 考勤 情况 ， 如 右 图 所 示 。 
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6.2.3 ”编写 代码 按 指定 位 置 拆 分 工作 表 


除了 按 指定 单元 格 拆 分 工作 表 外 ， 还 可 以 按 指定 位 置 拆 分 工作 表 。 具 体操 作 如 下 。 


步骤 01 编写 “指定 拆 分 线 位 置 拆 分 工作 表 ()” 过 程 的 代码 。 继 续 上 一 小 节 的 操作 ， 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 获取 用 户 输入 的 水 平 拆 分 线 位 置 ， 并 检查 


有 目 不 和 全: 
其 是 否 合法 。 


时 - tB 
ps pen (单位 为 磅 ) “ 
二 位 四 输 入 水 于 护 站 后 千 神 人 


' 检查 用 请 入 入 的 给 据 是 臣 富 ; 去 

D1in result is Boolean 

result = IsNun (H) 

It result = False 
NseBox ,给 的 数据 半 谷 法， 请 重新 输入 ” 
Golo er 

End I 


步骤 02 编写 拆 分 窗 格 的 代码 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 的 前 半 部 分 用 于 获取 用 户 输入 的 垂直 拆 分 线 位 置 ， 后 半 部 分 用 于 拆 分 窗 格 ， 并 设置 拆 分 线 的 位 
置 。 


' 输 ET 
Din TY is Strine 
msc: 
¥ = Inputbox 


《“ 请 输入 垂直 拆 分 线 的 位 号 4 单位 为 磅 ) 
Title:=" 输 入 屁 直 分 并 
,检查 用 请 有 W 入 的 答 据 是 省 全 
result = IsNun‘W 
It result = False Then | 
MsgBox “输入 的 数据 不 合法 ， 请 重新 输 


人 msc 


"用 工 帮 表 折 分 为 四 个 区 域 
ActiveWindow. Split = = True 
"指定 水 平 折 分 续 的 位 置 
ActiveWindow. SplitHorizontal = 
"指定 土 直 拆 分 昧 的 位 站 
ActiveWindow. SplitVYertical = 
End Sub 


重点 语法 与 代码 剖析 : 按 拆 分 线 位 置 拆 分 窗 格 


在 步骤 02 的 代码 段 中 ， 先 用 ActiveWindow.Split=True 语 句 拆 分 当前 窗口 ， 再 用 ActiveWindow.SplitHotizontal=H 语 名 设置 水 平 拆 分 线 的 位 置 (HH 变量 的 值 为 用 户 输入 的 数值 ) ， 用 
ActiveWindow.SplitVettical=V 语 多 设置 重 直 拆 分 线 的 位 置 〈V 变 量 的 值 为 用 户 输入 的 数值 ) 。 


步骤 03” 自 定义 IsSNum0 浮 数 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 检测 用 户 是 否 已 在 文本 框 中 输入 数据 。 


而 用) y 
' 检查 用 尸 输入 数据 是 否 语 法 的 目 十 又 员 数 a 
Function TERum (ain hs Strine) As Boolean 
If aim = “” Then 
IsNun = False 
Exlt Functlon 


End Ii 
" 补 旋 处 理 
On Rrror bolo n 


步骤 04 ”编写 代码 判断 输入 的 数据 是 否 正 确 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 IsSNum0 函 数 的 后 半 部 分 代码 ， 用 于 检测 输入 的 数据 是 否 合法 。 


lanl x 
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Dim test As Integer 
test = CInt (ain) 
It test >»= 0 Then 

lsNunm = lrue 

Exit Functlion 


Else 
IsNum = False 
End I+t 


n: 
IsNum = False 
End Funct1ion 


步骤 05 ”运行 安 。 返 回 Excel 视 图 ， 按 Alt+F8 组 合 键 ， 打开“ 宏 ” 对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 指 定 拆 分 线 位 置 拆 分 工作 表 ” 选 项 ， 单 击 “ 执 行 ”按钮 ， 如 下 左 图 所 示 。 
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步骤 06 输入 水 平 拆 分 线 的 位 置 。 程 序 开始 执行 ， 弹 出 “输入 水 平 拆 分 线 位 置 ” 对 话 框 ,提示 用 户 输入 水 平 拆 分 线 的 位 置 ， 在 文本 框 中 输入 “-120”， 单 击 “ 确 定 ”按钮 ， 如 下 右 图 所 示 。 


步骤 07 弹出 提示 框 。 此 时 弹出 提示 框 ， 提 示 用 户 输入 的 数据 不 合法 ， 需 重新 输入 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 
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步骤 09 ”不 输入 垂直 拆 分 线 的 位 置 。 弹 出 “输入 垂直 拆 分 线 位 置 ”对 话 框 ， 提 示 用 户 输入 垂直 拆 分 线 的 位 置 ， 直 接 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 
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步骤 10 ”弹出 提示 框 。 此 时 弹出 提示 框 ， 提 示 用 户 输入 的 数据 不 合法 ， 需 重新 输入 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 
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步骤 11 ”重新 输入 垂直 拆 分 线 的 位 置 。 返 回 “ 输 入 垂直 拆 分 线 位 置 ”对 话 框 ， 在 文本 框 中 输入 “150”， 单 击 “ 确 定 ”按钮 ， 如 下 左 图 所 示 。 
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重点 语法 与 代码 剖析 : 拆 分 窗 格 时 的 区 域 划分 


当 ActiveWindow.SplitRow=0，ActiveWindow.SplitColumn=1 时 ， 表 示 将 当前 窗口 拆 分 为 左右 两 个 区 域 ， 拆 分 线 左 侧 的 区 域 宽 度 为 工作 表 A 列 的 列 宽 。 其 中 ，0 和 1 表示 拆 分 线 上 方 的 行 数 和 左 侧 的 列 数 。 


当 ActiveWindow.SplitRow=1，ActiveWindow.SplitColumn=0 时 ， 表 示 将 当前 窗口 拆 分 为 上 下 两 个 区 域 ， 拆 分 线 上 方 的 区 域 高 度 为 工作 表 第 1 行 的 行 高 。 其 中 ，1 和 0 表示 拆 分 线 上 方 的 行 数 和 左 侧 的 列 数 。 
当 ActiveWindow.SplitHorizontal=0，ActiveWindow.SplitVertica=0 时 ， 表 示 不 拆 分 当前 窗口 。 

当 ActiveWindow.SplitHorizontal=120，ActiveWindow.SplitVettical=120 时 ， 表 示 将 当前 窗口 拆 分 为 4 个 区 域 ， 水 平 拆 分 线 和 重 直 拆 分 线 的 位 置 均 为 120 磅 。 

当 ActiveWindow.SplitHorizontalj=0，ActiveWindow.SplitVetrtical=120 时 ， 表 示 将 当前 窗口 拆 分 为 上 下 两 个 区 域 ， 重 直 拆 分 线 的 位 置 为 120 磅 。 


当 ActiveWindow.SplitHorizontal=120，ActiveWindow.SplitVertica=0 时 ， 表 示 将 当前 窗口 拆 分 为 左右 两 个 区 域 ， 水 平 拆 分 线 的 位 置 为 120 磅 。 


在 本 实例 中 ， 考 勤 表 按 月 份 存储 在 同一 个 工作 簿 的 不 同 工 作 表 中 ， 如 果 需 要 比较 两 个 月 的 考勤 记录 ， 来 回 切 换 工 作 表 不 仅 麻 烦 ， 而 且 容 易 出 错 。 本 节 将 编写 VBA 代 码 将 “自动 比较 两 个 月 考勤 情 
况 .xlsm” 工 作 簿 按 月 份 拆 分 为 多 个 工作 秒表 将 拆 分 出 的 工作 秒 进 行 并排 显 示 ， 以 方便 进行 比较 。 


扫 码 看 视频 


: 实例 文件 \ 第 6 章 \ 原 始 文 件 \ 自 动 比较 两 个 月 考勤 情况 .xlsm 


;实例 文件 \ 第 6 章 \ 最 终 文件 \ 自 动 比较 两 个 月 考勤 情况 .xlsm、1 月 份 .lsx、2 月 份 .xsx、3 月 份 .dlsx 


本 小 节 将 编写 拆 分 工作 簿 及 并 排 显 示 工 作 筹 的 过 程 代码 ， 具 体操 作 如 下 。 


| 录入 2 月 份 、3 月 份 的 考勤 记录 。 打 开 原 始 文 件 ， 在 工作 簿 的 Sheet2、Sheet3 工 作 表 中 分 别 录入 2 月 份 和 3 月 份 的 考勤 记录 ， 并 修改 工作 表 名 称 ， 如 下 图 所 示 。 
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步骤 02 ”查看 2 月 份 的 考勤 情况 。 单 击 “2 月 份 ” 标 签 ,切换 至 “2 月 份 ”工作 表 ， 可 看 到 在 该 工作 表 中 记录 了 2 月 份 的 考勤 情况 ， 如 下 图 所 示 。 


步骤 03 ”查看 3 月 份 的 考勤 情况 。 单 击 “3 月 份 ” 标 签 ,切换 至 “3 月 份 ”工作 表 ， 可 看 到 在 该 工作 表 中 记录 了 3 月 份 的 考勤 情况 ， 如 下 图 所 示 。 


ES 二 [HH 
4 T 寺 | | | 引 | 
本 二 时 昌 寺 H 寺 寺 午 

Tn | | | 

+t | | | 

Tf | | | 引 | 二 

号 玫 硬 面 硬 面 面 硬 面 硬 面 硬 面 面 面 面 | 
Tn 
证人 全 上 二 


I Solver (SOLYEER. ILAEN) 

由 - 赚 VBAProject (FUNCERES. ILAN) 

加 早 VYBAProject (自动 比较 两 个 月 考 驯 居 忆 
时 ol Excel 对 象 


二 -向 术 块 
导入 文件 


导出 文件 [日 .. 


穆 除 (R) 


步骤 05 ”编写 “并列 比较 (0” 过 程 的 代码 。 在 打开 的 “模块 4 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 调用 “ 拆 分 工作 短 0” 过 程 将 当前 工作 敌 按 工作 表 拆 分 为 多 个 工作 得， 然后 使 用 
Application.GetOpenFilename 方 法 让 用 户 选择 并 打开 指定 工作 往 ， 最 后 将 它 与 当前 工作 短 进 行 并 排 显示 。 


b 并 列 比较 
目 动 将 音 

拆 分 工作 : 

选择 需要 比较 的 工作 萍 

Dim myFileName 点 5 Strine 

nyF1llelane = Appllcatlon. GetOpenF1ilenanme _ 


《Excel 工作 清 ( 才 . X1s ,+*, xl]sx”) 


ober et Open nyFileNane 
me = LctiveWorkbook. nanme 


?将 它 它 各 当 前 工作 溥 并 排比 较 
ThisWorkbook,. Activate 
Windows. CompareSideBySlideWith myFileNanme 
End Sub 


步骤 06 ”编写 “ 拆 分 工作 筹 0” 过 程 的 代码 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 先 获取 拆 分 后 工作 簿 的 保存 路 径 ， 再 新 建 工 作 簿 。 


Sub _ 折 分 工作 清 吕 ， 
获 职 目 标 文 件 夹 路 征 
Dim patch hs String 
patch = GetPatch0 
If patch = °° Then 
3 Sub 


1 医 球 访问 当 前 工作 清 的 所 有 工作 表 
Application., ScreenUpdatine = False 
For 1 = 1 To Yorksheets.Count 

Dim sht As Worksheet 

Set sht = ThisWorkbook. Worksheets (i) 

Workbooks. Add 


重点 语法 与 代码 剖析 : 显示 标准 的 “打开 ”对 话 框 ， 并 获取 用 户 选 择 的 文件 名 
在 步骤 05 的 代码 段 中 ，myFileName=Application.GetOpenFilename ("Excel 工 作 簿 (*.xlsx) ,，*.xlsx") 语句 用 于 显示 标准 的 “打开 ”对 话 框 ， 获 取 用 户 选 择 的 文件 名 ， 然 后 使 用 Workbooks 对 象 的 Open 方 法 
打开 指定 的 工作 簿 。 

重点 语法 与 代码 剖析 : Windows.CompareSideBySideWith 方 法 的 用 法 


Windows.CompareSideBySideWith 方 法 用 于 以 并 排 模 式 打 开 两 个 窗口 。 其 语法 格式 为 : 表达 式 .CompareSideBySideWith (WindowName) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Windows 对 象 的 变量 ; WindowName 


是 必需 参数 ， 指 窗口 的 名 称 。 
注意 : CompareSideBySideWith 方 法 不 能 用 于 Application 对 象 或 ActiveWortkbook 属 性 。 


步骤 07 编写 代码 保存 新 工作 簿 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 将 指定 工作 表 复 制 到 新 工作 短 中 ， 然 后 以 该 工作 表 的 名 称 将 新 工作 筹 保存 到 指定 路 径 ， 再 关闭 该 工作 
簿 。 


' 将 工作 表 复 制 到 新 工作 沽 中 
sht， oPY before:=AictiveWorkbook. Worksheets (1) ” 


"按照 用 已 指定 位 首 保 存 新 工作 漳 
hctiveWorkbook. Saveas patch + “\” 
.Xlsx” 


郊 


+ sht,name + 
' 关闭 工作 济 
LctiveWorkbook. Close 
Next 1 
Appllcatlion. ScreenUpdating = True 
End Sub 


步骤 08 自 定义 GetPatch() 函 数 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 GetPatch() 函 数 的 前 半 部 分 代码 ， 用 于 调用 文件 选取 对 话 框 。 


"弹出 对 话 框 获取 足 径 网 
Function GetPatch As String 
' 调用 文件 选 职 对话 框 
Dim fd is FileDialoge 
Set id = hpplicatlon.FileDialog _ 
(msoFileDialogFolderPicker) 
Dim result bs Integer 
With fd 
. AllowMul tiSelect = False 
' 显示 对 话 框 
result = . Show 


步骤 09 ”编写 代码 返回 文件 夹 路 径 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 是 GetPatch() 函 数 的 后 半 部 分 代码 ， 用 于 返回 用 户 所 选 文件 夹 的 路 径 。 


二 用 ) v 
li result <> 0 Then a 
返回 用 户 选 择 的 路 径 。 
ath = fd. SelectedItenms (1) 
Klse 


GetPatch = “*” 
End I+t 
End VWith 
Set td = Nothine 
End Function 


6.3.2 ”运行 代码 并 排比 较 考 勤 情况 
编写 好 代码 后 ， 本 小 节 将 执行 代码 ， 实 现 自动 拆 分 工作 簿 并 并 排 显示 两 个 月 的 考勤 情况 。 具 体操 作 如 下 。 


步骤 01 执行 “并 列 比较 ”过 程 代码 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 按 Alt+F8 键 ， 打开“ 宏 ” 对 话 框 ， 单 击 “ 并 列 比 较 ” 选 项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


步骤 03 ”选择 需要 比较 的 工作 短 。 弹 出 “打开 ”对 话 框 ， 选 择 需要 比较 的 工作 敌 ， 如 “1 月 份 .xlsx”， 单 击 “ 打 开 ” 按 钮 ， 如 下 图 所 示 。 


1 多 a 
2 月 份 .xlsx 
3 月 份 .x|sx 


步骤 04 ”查看 并 排比 较 的 效果 。 程 序 执行 完毕 后 ， 工 作 秒 “自动 比较 两 个 月 考勤 情况 ”与 “1 月 份 ” 会 以 并 排 模 式 显 示 ， 如 下 图 所 示 。 此 时 用 户 可 以 拖 动 滚动 条 ， 同 步 滚动 比较 两 个 月 的 考勤 情况 。 
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“2018 年 1 月 份 职工 考勤 表 


第 7 草 ”外 部 文件 的 链接 管理 


本 章 主要 以 “入 库 商 品 信息 管理 ”为 例 ， 详 细 介 绍 如 何 使 用 VBA 程 序 代码 实现 在 Excel 中 自动 链接 指定 文件 名 的 文件 ， 再 实现 Excel 数 据 与 文本 文件 的 自动 转换 ， 然 后 将 Excel 文 件 中 的 批注 信息 导出 为 文 


本 文件 及 将 文本 文件 导入 Excel 文 件 中 作为 批注 信息 。 


7.1 目 动 链接 商品 图 片 


通常 情况 下 ， 在 工作 表单 元 格 中 输入 电子 邮件 或 网 页 地 址 时 ，Excel 会 自动 将 它们 设置 为 超 链接 ， 用 户 只 需 单 击 该 单元 格 就 能 链接 到 相应 的 地 址 。 本 节 将 使 用 VBA 程 序 代码 来 实现 这 样 的 超 链接 功能 


动 根据 单元 格 中 输入 的 商品 品名 文本 在 指定 目录 下 查找 对 应 的 同名 商品 图 片 文件 并 建立 超 链接 ， 用 户 点 击 单元 格 就 能 打开 相应 的 商品 图 片 。 


: 自 


要 码 看 视频 


he 


ve F: 实例 文件 \ 第 7 章 \ 原 始 文件 \ 自 动 链接 商品 图 片 .lsx、Pic 文 件 夹 


;实例 文件 \ 第 7 章 \ 最 终 文件 \ 自 动 链接 商品 图 片 .xlsm 


要 实现 自动 链接 商品 图 片 ， 首 先 需要 设置 图 片 文件 的 名 称 与 对 应 商品 品名 相同 ， 然 后 设置 品名 的 超 链接 ， 最 后 将 图 片 文件 的 路 径 指定 给 超 链接 。 本 小 节 将 介绍 如 何 编写 代码 指定 链接 文件 的 目录 ， 有 具体 
操作 如 下 。 


| 进入 VBE 编 程 环境 。 打 开 原始 文件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ”组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 。 


二 使 用 相对 引用 


C z 
入 库 商 品 信息 管理 
日 期 ” 商品 人 党 亏 品名 单位 
2018/1/12 NH-001 诺基亚 N73 BP 
2018/1/12 NH-002 诺基亚 5700 BP 
2018/1/12 M-001 摩托 之 拉 E6 BP 


步骤 02 插入 模块 。 进 入 VBE 编 程 环 境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (自动 链接 商品 图 片 .xlsx) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 ”命令 ， 如 下 图 所 示 。 


EET 


] [十 | 二 Solver (SOLYER. 了 LA 看) 
四- 由 了 VBAProject (FUNCRES. ILAN) 


日- 最 VBAProject 【自动 证 持 二 
器- 此 Wiecrosoft Exeel 对 熏 一 


查看 代码 (O) 


… 团 | Sheetl (六 库 记录 ] 国 。 音 者 对 拿 (B) 
… 转 | Sheet2 (Sheet2) 
Sheet3 (Sheet3) 


Thi sWorkbook 


步骤 03 ”编写 “指定 链接 文件 的 目录 ()" 


保存 链接 文件 的 路 径 。 


各 设 检 < 


步骤 04 ”获取 用 户 指定 的 文件 夹 路 径 。 
对 话 框 提示 。 


在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “指定 链接 文件 的 目录 ()" 


导出 文件 (E)... 
穆 除 (R) 
不 打印 (p)... 


过 程 代码 。 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “指定 链接 文件 的 目录 0” 


rpath as String 


sub 指定 匀 接 文件 的 目 好 0 
创建 对 话 框 ， 获 了 图 片 文件 来 
Dim dialog Ms FileDialoe 
Set dialog = hpplication.FileDialoe 


(msoFileDialogFolderPicker) 


dialog. AllowNultiSelect = False 


过 程 的 前 半 部 分 代码 ， 用 于 创建 对 话 框 ， 获 取 


' 定义 curpath 变 量 为 全 局 变量 ， 
" 保存 用 户 选 择 的 文件 来 路 行 


过 程 的 后 半 部 分 代码 ， 用 于 获取 用 户 指定 的 文件 夹 路 径 ， 并 以 


"以 全 局 变 台 curpath 保 存 用 尸 指 让 的 文件 夹 路 径 
It dialog. Show = : 
curpath = dialog,. SelectedItems (1) 


用 对 话 杠 据 未 用 户 当 前 洗 中 的 文件 夫 路 生 
MsgBox “当前 选中 文件 夹 的 路 径 ; 
Chr (10) & curpath 


mp ox 7 用 户 没有 选 定 保存 链接 文件 的 文件 夹 
pd 


知识 链接 ”选择 文件 夹 路 径 
文件 夹 路 径 是 指 保 存 图 片 文件 的 文件 夹 的 完整 路 径 ， 这 里 使 用 代码 调用 “浏览 ”对 话 框 ， 选 择 需 要 的 文件 夹 ， 再 使 用 Dialog.SelectedItems (1) 属性 获取 选 定 文件 夹 的 完整 路 径 。 


步骤 05 ”选择 按钮 控件 。 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “按钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


公式 数据 审阅 视图 开 友 1] 具 Power 


闪 ”三 | [] 尾 性 

DD 医 MA sgn 

加 ”Excel COM 加 载 项 证 计 模式 

载 顶 “加载 项 站 | 执行 对 话 框 
加 载 项 表单 控件 


后 转 回 转 国 @| 


大 局 昌 回 国 二 


Act ActiveX 控件 | 
“入 库 商品 信息 管理 口 国 回国 加 员 


商品 货号 品名 单位 | 站 人 训 呈 i 


步骤 06 ”为 按钮 控件 指定 宏 。 在 工作 表 中 的 空白 处 绘制 控件 ， 绘 制 完成 后 将 自动 弹出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 指 定 链接 文件 的 目录 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ” 按 
钮 。 


指定 链接 文件 的 目录 


步骤 07 ”运行 按钮 对 应 的 宏 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “指定 目录 ， 并 激活 该 按钮 。 接 下 来 需要 运行 该 按钮 对 应 的 安 ， 单 击 该 按钮 ， 如 下 图 所 示 。 


D 
入 库 了 商品 信息 管理 
| 辣 人 党 亏 1 看 单位 
| 2018/1/12 N-001 诺基亚 N73 
“2018/1/12 N-002 ”诺基亚 5700 


“2018/1/12 -001 ”摩托 罗拉 E6 
“| 2018/1/12 3-001 二 是 U608 
| 2018/1/12 M002 ”摩托 罗拉 VY8 
8 | 2018/1/12 Ss-002 三星 D908i 
9 | 2018/1/12 S-003 ”二 星 D828 


步骤 08 选择 保存 链接 文件 的 文件 夹 。 此 时 会 弹出 “浏览 ”对 话 框 ， 在 对 话 框 中 选择 保存 链接 文件 的 文件 夹 ， 如 下 图 所 示 ， 单 击 “ 确 定 ”按钮 。 


转 浏览 
€ ~ 小 图 « 第 7 章 ， 原始 文件 ， 


焉 织 * 新 建文 件 去 
国 | 图片 ^ 
时 下 和 
小 音乐 
国 点 机 


a 


2008/7/14 13:05 


步骤 09 ”弹出 提示 框 。 程 序 执行 完毕 后 ， 将 弹出 提示 框 ， 提 示 用 户 当前 选中 文件 夹 的 路 径 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 右 图 所 示 。 


L D) 
指定 目录 《入 库 了 商 秽 信息 管理 
日 期 ”商品 货号 品名 单位 
2018/1/12 N-001 “诺基亚 N73 部 10 ¥f2,735 
2018/1/12N-002 诺基亚 5700 部 8, ¥2,373 


跨 一 一 
* Microsoft Excel 


FAExce 


2018/1/24N-001 | 诺基亚 W73 ep 12 2 735 | 


7.1.2 ”编写 代码 目 动 链接 图 片 


指定 链接 文件 的 目录 后 ， 若 要 实现 自动 链接 商品 图 片 ， 还 需 创建 品名 单元 格 的 超 链接 。 具 体操 作 如 下 。 


步骤 01 编写 “自动 链接 0” 过 程 代码 。 继 续 上 一 小 节 的 操作 ， 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 在 选中 区 域 中 循环 调用 InterLink() 过 程 ， 为 单元 格 添加 超 链 接 。 


a 三 


动 ] 
SA 
' 定 必 变量 cel1 选 中 区 域 中 的 当前 单元 格 


Sub 


Dim cell hs Range 
For Each cell In Selection 
' 调用 InterLink 过 程 为 单元 格 添加 超 链接 
InterLink cell 
Next cell 
End sub 


步骤 02 编写 InterLink0 过 程 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 InterLink0 过 程 的 第 1 部 分 代码 ， 用 于 检查 是 否 设 置 了 当前 目录 。 如 果 未 设置 ， 则 提醒 用 户 
设置 。 


(通用 ) 


' 为 指定 单元 格 添加 超 备 接 
Public Sub InterLink (ByYal aim As Range) 
- 答 查 是 否 理 设 占 了 当前 | I 孙 ， 并 提醒 用 户 次 轩 


步骤 03 创建 Filesystem 对 象 。 在 “ 异 块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 InterLink(0 过 程 的 第 2 部 分 代码 ， 使 用 CreateObject0 函 数 创建 FileSystem 对 象 ， 然 后 使 用 
GetFolder 方 法 获取 用 户 指定 的 文件 夹 . 


-] [meter ~ 


"创建 FileSysten 对 月 并 多 取 对 应 的 Folder 对 旬 ” 
Dim mytilesystem, almitolder 
Set myitilesystem = CreateObject _ 
("Scripting. filesystemob ject”) 
Set alimtolder = myftilesystenm.GetFolder 


(curpath) 


步骤 04 ”为 单元 格 添加 超 链接 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 InterLink0 过 程 的 最 后 一 部 分 代码 ， 主 要 使 用 循环 语句 比较 文件 的 基本 名 称 是 否 与 单元 格 内 容 相 
符 。 如 果 相 符 ， 则 添加 超 链 接 。 


| |InterLink 


" 对 该 文件 来 内 的 文件 执行 循环 
For Each one Im aimfolder,.Files 
狭 取 廊 忻 的 基本 名 称 
Dim basename AS Strine 
a = PE GetBaselNane 
(one. 机 
, 关 断 宴 御 的 一 条 名 种 与 单元 格 内 容 是 否 相 和 罕 
If basename = alin. Yalue Then 
" 如 来 相 付 则 为 其 汪 加 超 符 接 
ActlveSheet. Hyperlinks. Add _ 
anchor:=aln, Address:=one. Path 
Exlit For 
End I 
Next one 
End Sub 


重点 语法 与 代码 剖析 : GetBaseName 与 Hyperlinks.Add 方 法 的 用 法 


GetBaseName 方 法 用 于 返回 一 个 包含 路 径 中 文件 的 基本 名 称 (去 掉 文 件 扩 展 名 ) 的 字符 串 。 其 语法 格式 为 : Object.GetBaseName 


(path) 。 其 中 ，Object 是 必需 的 ， 是 一 个 FileSystemObject 的 名 称 ; Path 是 
必需 参数 ， 用 于 表示 要 返回 其 基本 名 称 的 文件 的 路 径 。 


注意 : (1) 如 果 没 有 文件 和 path 参 数 匹配 ，GetBaseName 方 法 返回 一 个 长 度 为 零 的 字符 串 〈") 。 (2) GetBaseName 方 法 只 对 提供 的 path 字 符 事 起 作用 。 它 既 不 试图 辨认 路 径 ， 也 不 检查 指定 路 径 是 否 
在 。 


访 


Hyperlinks.Add 方 法 用 于 向 指定 的 区 域 或 形状 添加 超 链接 。 其 语法 格式 为 : 表达 式 .Add (Anchor，Address，SubAddress，ScreenTip，TextToDisplay) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Hypetlinks 对 象 的 变 
量 。Anchor 是 必需 参数 ， 用 于 表示 超 链接 的 位 置 ， 可 为 Range 或 Shape 对 象 。Address 是 必需 参数 ， 指 超 链 接 的 地 址 。SubAdqress 是 可 选 参 数 ， 指 超 链 接 的 子 地 址 。SctreenTip 是 可 选 参 数 ， 指 当 和 鼠标 指针 停留 在 超 
链接 上 时 所 显示 的 屏幕 提示 。TextToDisplay 是 可 选 参数 ， 指 要 显示 超 链接 的 文本 。 注 意 : 指定 TextToDisplay 参 数 时 ， 文 本 必须 是 字符 串 。 


重点 语法 与 代码 剖析 : GetFolder 方 法 的 用 法 


GetFoldet 方 法 用 于 返回 一 个 和 指定 路 径 中 文件 夹 相 对 应 的 Foldet 对 象 。 其 语法 格式 为 : Object.GetFolder (folderspec) 。 其 中 ，Object 是 必需 的 ， 它 是 一 个 FileSystemObject 的 名 称 ; folderspec 是 必需 参数 ， 
它 是 指定 文件 夹 的 路 径 (绝对 的 和 相对 的 ) 。 


注意 : 当 指 定 的 文件 夹 不 存在 时 ， 程 序 将 会 报错 。 


步骤 05 ”为 按钮 控件 指定 宏 。 返 回 Excel 视 图 ， 选 择 按钮 控件 后 ， 在 工作 表 中 的 适当 位 置 绘制 控件 ， 弹 出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 自 动 链 接 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 
安 钮 。 


半 


步骤 06 运行 “自动 链接 (0” 过 程 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “自动 创建 超 链接 ”， 选 择 单 元 格 区 域 A3: F13， 单 击 “ 自 动 创建 超 链接 ”按钮 ， 如 下 图 所 示 。 


本 ET 


品名 单位 


14 | 2018/1/24 S-002 ”二 年 D908i 部 | 3 ¥2,280 
2018/1/24 -003 ”摩托 罗拉 E608g ¥1, 830 


步骤 07 弹出 提示 框 。 程 序 自 动 执行 ， 如 果 未 指定 链接 文件 的 目录 ， 将 弹出 提示 框 ， 提 示 用 户 还 未 指定 链接 文件 的 目录 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 左 图 所 示 。 


| ¥1, 830 
| ¥f 2, 373 


步骤 08 选择 链接 文件 所 在 的 文件 夹 。 此 时 弹出 “浏览 ”对 话 框 ， 在 地 址 栏 中 选择 链接 文件 所 在 的 文件 夹 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 右 图 所 示 。 
浏览 
一 “个 图 « 第 7 章 ， 原始 文件 ， 


组 织 = 新 建文 件 来 


医 | 图 片 a 
图 文档 
时 下 过 
上 言 忒 
国 点 面 


2008/7 /14 13:05 文件 夹 


各 软件 (E:) 
备份 (F:) 


加 网 络 


WwW 县 


TAU) ™ 


步骤 09 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 当前 选中 文件 夹 的 路 径 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 


指定 目录 入 库 了 商品 信息 县 仿 
商品 货号 品名 单位 
2018/1/12.N-001 ” 诺 基 汪 N73 部 


7 Microsoft Excel 


ype N-002 诺基亚 5700 省 10 ¥2,373 
2018/1/24 N-001 诺基亚 W73 = 12 ¥2,735 
2018/1/24 NM-00 靶 托 多 拉 E6 到 4 2,279 


步骤 10 ”查看 添加 超 链接 后 的 效果 。 程 序 执行 完毕 后 ， 可 看 到 选中 区 域 中 的 “品名 ” 列 添加 了 超 链接 ， 如 下 图 所 示 。 


el : 入 库 商 品 从 各 管理 


可 副 ii 丽 二 re 
FE "ee es 
ET OUoE 


J i 


诺基亚 N73 


5 王 本 由 本 > 汪 
厅 托 名 所 E6 


C 
指证 目录 入 库 i 理 自动 创建 超 链 接 
日 其 数量 单价 
2018/1/12 N-001 a 训 10| ¥2;735 
2018/1/12 N-002 : 
2018/1/12 NW-001 


2018/1/12 S-001 


10 ¥ 2 


步骤 12 ”打开 链接 文件 。 如 果 需 要 查看 超 链接 的 内 容 ， 单 击 超 链 接 文本 ， 即 可 打开 相应 的 文件 ， 如 下 图 所 示 。 


工作 表 中 “品名 ” 列 的 内 容 常常 需要 修改 或 新 增 ， 本 小 节 将 通过 编写 VBA 人 代码， 实现 自动 在 修改 或 新 增 “ 品 名 ”有 列 的 内 容 后 添加 超 链接 。 具 体操 作 如 下 。 


修改 字段 时 自动 添加 超 链 接 。 继 续 上 一 小 节 的 操作 ， 在 “工程 ”窗口 中 双击 Sheet1 选 项 ， 打 开 “Ssheet1 (代码 ) ”窗口 ， 在 其 中 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代 码 用 于 在 修改 C 列 且 只 修 
改 一 个 单元 格 时 ， 目 动 调用 InterLink(O 过 程 。 


Yorksheet 


,在 工作 表 内 容 修改 时 自动 调用 添加 超 链 接 过 才 程 
Private Sub Worksheet Changee 
(ByVal Target hs Ran g8) 加 
,修改 内 容 公 限于 ， 并 且 只 朋 收 了 改 一 个 单元 格 
If Target.Column = 3 hnd _ 
Target.Count = 1 Then_ , 
"调用 InterLink 过 程 为 单元 格 添加 超 链接 
InterLink Target 
End If 
End Sub 


步骤 02 ”修改 单元 格 数 据 。 在 单元 格 C17 中 输入 “诺基亚 5700”， 按 EnteI! 键 ,系统 自动 调用 InterLink0 过 程 ， 弹 出 提示 框 ， 提 示 用 户 还 未 指定 链接 文件 的 目录 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 右 图 所 示 。 


BE 

7 | 2018/1/12M-002 ”摩托 罗拉 Y8 

8 | 2018/1/12 S-002 ”三 星 p308i 部 

| 2018/1/12 S-003 二 上 生 D5, Microsoft Excel 
“2018/1/12 -003 ”摩托 罗 : 

| 2018/1/24 N-002 

12 | 2018/1/24 N-001 站 东亚 | 

2018/1/24N-001 ”摩托 办: 

| 2018/1/24 S-002 三星 Da | 

2018/1/24 F003 ”摩托 罗 j2wousgJip 

2018/1/24M-002 ”摩托 罗拉 VY8 部 


2018/1/28 N-002 ws i 
者 | 男 
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pp 
2 
修改 日 期 

2008/7/14 13:05 ”文件 去 


时 软件 (E:) 
= 此 份 (F:) 


加 网 并 


步骤 04 ”显示 当前 选中 文件 夹 的 路 径 。 弹 出 提示 框 ， 提 示 用 户 当前 选中 文件 夹 的 路 径 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 
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2018/1/24 N-002 诡 基 亚 5700 
2018/1/24 N-001 证 基 汪 N73 
2018/1/24 MN-001 

2018/1/24 3-002 

2018/1/24 -003 ”摩托 罗拉 E608g 
2018/1/24N-002 ”摩托 罗拉 VY8 
2018/1/28 N-002 详 基 汪 5700 


步骤 06 ”查看 链接 的 文件 。 单 击 单元 格 中 的 “诺基亚 5700” 超 链接 ， 即 可 打开 其 链接 的 文件 ， 如 下 图 所 示 。 


诺基亚 5700.jpg 


步骤 07 ”查看 文本 链接 的 路 径 。 将 鼠标 指针 置 于 “诺基亚 ?700” 超 链接 上 ， 即 可 看 到 链接 文件 的 路 径 ， 
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7.2 入 库 丙 品 数 据 的 导入 与 导出 


Excel 自 身 具备 导入 /导出 文本 文件 的 功能 。 其 中 ， 导 入 文本 文件 的 功能 位 于 
类 型 为 文本 文件 。 本 节 将 通过 编写 VBA 程 序 代码 来 实现 类 似 的 功能 。 


“数据 ”选项 卡 下 “获取 外 部 数据 " 


如 右 图 所 示 。 


BP 13 
aP 10 
lt 2 
a 14 
lt 3 
BP 10 
中， 8 


组 中 的 “ 自 文本 ”按钮 ; 导出 文本 文件 的 功能 则 位 于 “文件 > 导出 ” 


¥1,830 
¥ 2, 373 
¥ 2, 735 
¥ 2,279 
¥ 2, 280 
¥1,830 
¥ 3, 200 


命令 ， 然 后 更 改 文件 


要 码 看 视频 


ea 


LY)e : 实例 文件 \ 第 7 章 \ 原 始 文 件 \ 商 品 入 库 数据 的 导入 与 导出 .xlsm 


: 实例 文件 \ 第 7 章 \ 最 终 文件 \ 商 品 入 库 数 据 的 导入 与 导出 .xlsm、 商 品 入 库 信 息 .txt、 商 品 入 库 信 息 1.txt 


本 小 节 将 介绍 如 何 编写 VBA 程 序 代 码 导 出 Excel 工 作 表 中 的 数据 至 文本 文件 。Excel 工 作 表 中 的 数据 存放 在 不 同 的 单元 格 里 ， 本 实例 的 代码 在 将 数据 导出 至 文本 文件 时 会 用 逗号 分 隔 不 同 单元 格 的 数据 ， 
并 且 每 行 数据 自动 换行 显示 。 


进入 VBE 编 程 环境 。 打 开 原 始 文件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 。 


加 
和 一 一 | 
=— 


日 期 商品 货号 品名 
2018/1/12 N-001 诺基亚 N73 


EE 


器 Solver (SOLYER. ILAN) 
申 - YEAProject (FUNCEES. ILAN) 
EVBAPr。ject 〈 商 品 入 库 赦 据 的 导入 与 本 Eee 
日 人 了 erosoft Exeel 对 象 理 吾 代 的 (O) 
路 = 中 Sheetl (入 库 记 录 ) | 国 ” 查看 对 人 象 (B8) 
一 大 | Sheet2 (Sheet2) 一 一 
… 团 ] Sheet3 (Sheet3) 
Thi sWorkbook 
日 - 2 模块 


导出 立 件 (E).. 
称 降 (R) 
硕 打 印 ®).. 


步骤 03 ”编写 “导出 文件 0)” 过 程 代码 。 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代 码 是 “导出 文件 9” 过 程 的 第 1 部 分 代码 ， 用 于 获取 用 户 输入 的 文件 名 。 


僵局 ) - 
Te 


Sub 
变量 保存 导出 后 


Din filename hs Str] : 

"如果 程序 执 J 错 话 册 i 跳 轩 到 错误 处 理 代码 自 
On Error Golo esc 
ae 
o 


filename = InputBox' 
,请 篇 信号 册 所 多 文件 名 & Chr ( 0) _ 
(包括 文件 的 路 径 、 文 件 名 及 后 缀 * 
txt)) : ") 


mg 


步骤 04 ”检查 文件 是 否 存 在 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 文件 0)” 过 程 的 第 2 部 分 代码 ， 使 用 Dir0 函 数 检查 文件 是 否 人 存在 ， 并 决定 是 否 覆 盖 文 件 。 


误 | 器 | 他: 亩 


外 | 


| 通用) | 
' 判断 文件 是 知已 经 存在 


existance = Dir (filenane, vbNormal) 


If existance 《> et 
result = MsgBo 
Sa 是否 要 本 芋 该 文件 ， 
Buttons :=vbYesHo) 
End It 
Fee Until (existance =“”Or result = 6) 
en 1 多 对 用 的 并 二 
Din tilenmm iis Integer 
filenunm = FreeFile® 


知识 链接 “导出 Excel 数 据 ， 生 成 文本 文件 


导出 Excel 数 据 时 ， 需 要 输入 保存 数据 的 路 径 及 文件 名 ， 其 包含 导出 数据 生成 的 文本 文件 类 型 ， 并 判断 文件 是 否 存 在 。 如 果 存 在 ， 则 将 其 覆盖 。 其 中 ,使 用 Dir0 肖 数 检测 文件 是 否 存 在 ， 使 用 FreeFile0 遂 
数 获取 文件 的 文件 号 。 

重点 语法 与 代码 剖析 : Dir0 和 FreeFile() 函 数 的 用 法 

Dit0 函数 用 于 返回 一 个 Stting， 用 以 表示 一 个 文件 名 、 目 录 名 或 文件 夹 名 ， 它 必须 与 指定 的 模式 、 文 件 属性 或 磁盘 卷 标 相 匹 配 。 其 语法 格式 为 Dir[ (pathname[，attributes]) ]。 其 中 ，pathname 是 可 选 参 
数 ， 用 来 指定 文件 名 的 字符 串 表 达 式 ， 可 能 包含 目录 、 文 件 夹 及 了 驱动器。 如果 没有 找到 pathname， 则 会 返回 零 长 度 字 符 串 (") 。atttibutes 是 可 选 参 数 ， 其 值 为 常数 或 数值 表达 式 ， 用 来 指定 文件 属性 。 如 果 
省 略 该 参数 ， 则 会 返回 匹配 pathname 但 不 包含 属性 的 文件 。 注 意 : 在 Windows 中 ，Dir0 函 数 支持 使 用 多 字符 (*) 和 单字 符 (? ) 通配符 来 指定 多 个 文件 。 


FreeFile0 函数 用 于 返回 一 个 Integet， 代 表 下 一 个 可 供 Open 语 多 使 用 的 文件 号 。 其 语法 格式 为 : FreeFile[ (rangenumber) ]。 其 中 ，tangehumbet 是 可 选 参数 ， 其 数据 类 型 为 Vatiant， 它 指定 一 个 范围 ， 以 便 返 
回 该 范围 内 的 下 一 个 可 用 的 文件 号 。 如 果 将 其 设置 为 0 (默认 值 ) ， 则 返回 一 个 1 一 255 之 间 的 文件 号 。 如 果 设 置 为 1， 则 返回 一 个 256~511 之 间 的 文件 号 。 注 意 : 该 函数 提供 一 个 尚未 使 用 的 文件 号 。 


步骤 05 ”选择 需要 导出 的 数据 区 域 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 文件 )” 过 程 的 第 3 部 分 代码 ， 使 用 Open 语 句 打 开 输 出 文件 ， 然 后 选取 需要 导出 的 数 
据 区 域 。 


(一 用 ) ~ 


"打开 文件 并 对 文件 进行 输出 探 作 
Open tilename For Output As #i1]enum 
全 遇 多 个 数据 区 域 中 的 闫 所 至 文件 中 


提示 用 户 选 择 需 册 寻 出 的 数据 区 域 


Dim mycell AS Range 
Set mycell = Appllicatlion. InputBox( 


ee 请 选择 需要 导出 的 数据 区 域 ”，_ 
了 浊 ss 


知识 链接 ”打开 文件 并 写 入 数据 


用 户 可 以 使 用 Open filename For Output As#filenum 语 和 句 打开 指定 文件 号 的 文件 ， 然 后 使 用 Print 语 句 将 指定 数据 写 入 文本 文件 中 。 


步骤 06 ”将 选择 的 数据 输出 到 文件 中 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 文件 0” 过 程 的 第 4 部 分 代码 ， 使 用 双 循 环 将 选择 区 域 中 每 个 单元 格 的 数据 输出 到 
文件 中 。 


将 选择 区 域 的 每 一 行 、 二 列 数 据 输出 到 文件 中 
For i = mycel1.Row To (nycel1.Rows.Count 
+ mycell.Row — 1) 
For 1 = mycell.Column To m—-1 
Print #11enun, minha 


sy 


= 3 -1 - 
' 输出 回 车 符 
On #filenum, Chr (10) 


向 文件 中 输入 < 
Print #1]enum, 
End I+ 
Next ] 
Next 1 : 
Print #filenum, Chr (13) 


重点 语法 与 代码 剖析 : Open 语 句 的 用 法 


Open 语 和 句 使 用 户 能 够 对 文件 进行 输入 /输出 (I/O) 操作 ， 因 为 对 文件 做 任何 I/O 〇 操作 之 前 都 必须 打开 文件 。Open 语 和 句 分 配 一 个 缓冲 区 供 文件 进行 I/ 〇 操作 ， 并 决定 缓冲 区 所 使 用 的 访问 方式 。 其 语法 格 
式 为 : Open pathname For mode[Access access][lock]As[#]filenumber[Len=reclength]。 其 中 ，pathname 是 必需 参数 ， 用 于 指定 文件 名 ， 该 文件 名 可 能 还 包括 目录 、 文 件 夹 及 驱动 器 。mode 是 必需 参数 ， 用 于 指定 文 
件 访问 方式 有 Append、Binaty、Input、Output 和 Random 方 式 。 如 果 未 指定 ， 则 以 Random 访 问 方 式 打开 文件 。access 是 可 选 参 数 ， 用 于 说 明 对 打开 的 文件 可 以 进行 的 操作 ， 有 Read、Wrtite 和 Read Write 操 作 。 
lock 是 可 选 参 数 ， 用 于 说 明 限定 其 他 进程 打开 的 文件 的 操作 ， 有 Shared、Lock Read、Lock Write 和 Lock Read Wiite 操 作 。filenumbet 是 必需 参数 ， 指 一 个 有 效 的 文件 号 ， 范 围 为 1 一 511 之 间 。 使 用 FreeFile0 函数 
可 得 到 下 一 个 可 用 的 文件 号 。reclength 是 可 选 参数 ， 其 值 为 小 于 或 等 于 32767 ( 字 节 ) 的 一 个 数 。 对 于 用 随机 访问 方式 打开 的 文件 ， 该 值 就 是 记录 长 度 ; 对 于 顺序 文件 ， 该 值 就 是 缓冲 字符 数 。 


注意 : 在 Binary、Input 和 Random 方 式 下 ， 可 用 不 同文 件 号 打开 同一 文件 ， 而 不 必 先 关闭 该 文件 。 在 Append 和 Output 方 式 下 ， 若 要 用 不 同文 件 号 打开 同一 文件 ， 则 须 在 打开 文件 前 关闭 该 文件 。 


步骤 07 ”提示 是 否 选择 其 他 数据 区 域 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 文件 0” 过 程 的 第 5 部 分 代码 ， 使 用 对 话 框 提 示 用 户 是 否 选择 其 他 数据 区 域 。 


resultl = Ms 


旺 二 于 各 择 其 他 给 据 区 域 "，- 


Buttons :=vbYes 
,如 时下 者 本 生生 需 邵 握 区 域 ， 风 结束 循环 
It result = 7 Then 
Exit Do 
End I+ 
Loop Until] resultl 


步骤 08 关闭 文件 并 弹出 成 功 提 示 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 文件 )” 过 程 的 最 后 一 部 分 代码 ， 用 于 关闭 打开 的 文件 ， 并 以 对 话 框 形式 提示 文件 导 
出 成 功 。 


' 关闭 文件 


Close #f1]enum | 
sgBox (“文件 导出 成 功 1”) 
Bsc: 
Exit Sub 
End Sub 


重点 语法 与 代码 剖析 : Print# 语 句 的 用 法 


Print# 语 句 用 于 将 格式 化 显示 的 数据 写 入 顺序 文件 中 。 其 语法 格式 为 : Print#filenumber[，outputlist]。 其 中 ，filenumber 是 必需 参数 ， 表 示 任 何 有 效 的 文件 号 。outputlist 是 可 选 参 数 ， 用 于 指定 表达 式 或 要 
打印 的 表达 式 列表 。 其 设置 为 : [{Spc (n) |Tab[ (n) ]}]J[expression][charpos]。 其 中 ,，Spc (n) 用 来 在 输出 数据 中 插入 空白 字符 ,而 “n” 指 的 是 要 插入 的 空白 字符 数 。Tab (n) 用 来 将 插入 点 定位 在 菜 一 绝对 
列 号 上 ， 这 里 “n” 是 列 号 。 使 用 无 参数 的 Tab 可 将 插入 点 定位 在 下 一 个 打印 区 的 起 始 位 置 。expression 是 指 要 打印 的 数值 表达 式 或 字符 串 表达 式 。charpos 用 于 指定 下 一 个 字符 的 插入 点 ， 使 用 分 号 可 将 插入 点 
定位 在 上 一 个 显示 字符 之 后 。 如 果 省 略 charpos， 则 在 下 一 行 打 印 下 一 个 字符 。 


注意 : 通常 用 Line Input# 或 Input 读 取 Print# 在 文件 中 写 入 的 数据 ， 但 是 如 果 今 后 想 用 Input# 语 句 读 取 文件 的 数据 ， 则 要 用 Wtrite# 语 句 ， 而 不 用 Print# 语 句 将 数据 写 入 文件 。 因 为 在 使 用 Write# 时 ， 会 将 数 
据 域 分 界 ， 以 确保 每 个 数据 域 的 完整 性 ， 所 以 可 用 Input# 将 数据 读 出 来 。 使 用 Wtite# 还 能 确保 任何 位 置 的 数据 都 被 正确 读 出 。 


步骤 09 打开 “ 宏 ” 对 话 框 。 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 “ 宏 ” 按 钮 。 


Visual Basic “” 变 : : Exce| COM 加 载 
ch #0] 页。 加 走 项 


指正 目录 
日 期 ” 商品 货号 
2018/1/12 N-001 


步骤 10 ”执行 宏 。 弹 出 “ 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 导 出 文件 ”选项 ,， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


步骤 11 输入 文件 名 。 此 时 弹出 输入 对 话 框 ， 提 示 用 户 输 


导出 后 的 文件 名 ， 在 文本 框 中 输入 具体 的 文件 路 径 、 文 件 名 及 后 级 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


4 上 | 入 库 商 品 信息 管理 自动 创建 超 链接 


日 期 ”商品 货 亏 品名 单位 数 重 单价 


| 2018/1/12 N-001 
1 | 2018/1/12 N-002 
"2018/1/12 NW-001 
| 2018/1/12 5-001 


2018/1/12 -002 | 
2018/1/12 S-002 
2018/1/12 3S-003 
) | 2018/1/12 NW-003 
| 2018/1/24 N-002 
| 2018/1/24 N-001 
2018/1/24 NW-001 


诺基亚 W73 10 ¥2,735 


di 


' Microsoft Excel 


请 模 入 号 出 后 的 文件 名 


” (包括 文件 的 路 径 ， 驻 件 名 及 后 绎 (.tbxt)): 


TS3T TIT e300 
10| ¥2,373 
12| ¥2,735 
14 ¥2,279 

a 


步骤 12 ”选择 需要 导出 的 数据 区 域 。 弹 出 另 一 个 输入 对 话 框 ， 提 示 用 户 选择 需要 导出 的 数据 区 域 ， 在 工作 表 中 选择 单元 格 区 域 A2: F7， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


__ 指定 目录 | 入 库 商品 信息 管理 ”自动 创建 如 链接 


日 期 商品 货号 ”数量 ”单价 


2018/1/12 N-001 
2018/1/12 N-002 
2018/1/12 N-001 
2018/1/12|S-001 
2018/1/12 NM-002 


¥2,735 | 


¥ 2, 373 | 
i 2, 279 | 
1 攻 Y2, 747 | 


¥ 3, 200 | 


2018/1/12 8-002 ¥ 2, 280 
2018/1/12 Ss-003 ¥ 2, 256 
10 | 2018/1/12|N-003 ”| 摩托 罗拉 R608g | 部 | | ¥1, 830 
2018/1/24 了 -002 ”| 诡 基 汪 5700 sp 0| ¥2,373 
12 | 2018/1/24 N-001 讶 基业 N73 = 2 ¥2,735 


步骤 13 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 是 否 还 需要 选择 其 他 数据 区 域 ， 单 击 “ 是 ”按钮 ， 如 下 左 图 所 示 。 


1 
2 
: 
4 
a 
6 
1 
8 
时 


上 
| 一- 


遇 日 Ih F FH 
指定 目录 入 库 商 品 信 息 错 管理 自动 创建 起 链接 
日 期 ” 商品 货号 品名 
2018/1/12 N-001 | Mf Eco | ¥ 2, 735 
2018/1/12 N-002 8| ¥2,373 
2018/1/12 N-001 z 一 | 下 ¥ 2, 19 


2018/1/12 Ss-001 


2018/1/12 N-002 


2018/1/12 S-002 
2018/1/12 Ss-003 


¥ 2,747 
¥ 3,200 
2, 280 
2, 256 


2018/1/12 NM-003 摩托 专 拉 FE608sg 
2018/1/24 N-002 诺基亚 5700 
2018/1/24 N-001 诺基亚 W73 

| 2018/1/24 有 -001 | 层 托 之 拉 E6 


步骤 14 选择 其 他 要 导出 的 数据 区 域 。 弹 出 输入 对 话 框 ， 在 工作 表 中 选择 单元 格 区 域 A10: F16， 单 击 “ 确 定 ”按钮 ， 如 下 右 图 所 示 。 


= 


¥1,830 
2, 373 
¥ 2,735 
¥2,279 


J 


了 此 


B C 
2018/1712 N-001 诺基亚 H73 
2018/41712 了 002 诺基亚 5700 
2018/71712 NM-001 摩托 专 拉 E6 
| 2018/1/12 Ss- 输入 

| 2018/1/12|O 
8 | 2018/1/12 5- 


请 选择 需要 导出 的 数据 区 
(| $AS$10:$F$10 


9 2 S— 

10 1 2018/1/12 1- : : 

11 \ 2018/1/24 N- | 

12 | 2018/1/24/W-001 “诺基亚 N73 

13 | 2018/1/24 -001 基 托 罗拉 E6 

14 2018/1/24 S-002 ”三 星 p908i 
2018/1/24 NW-003 ”摩托 罗拉 E608g 

16 FE -002 ”摩托 罗拉 V8 


¥ 2, 735 


¥2,373 
¥ 2,279 
¥2,747 
¥ 3, 200 
¥ 2, 280 
¥ 2, 256 
¥1, 830 
¥ 2, 373 
¥ 2, 735 
¥ 2, 279 
¥ 2, 280 
¥1, 830 


¥ 3, 200 


17 | 2018/1/28 了 -002 诺基亚 5700 


步骤 15 弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 是 否 还 需要 选择 其 他 数据 区 域 ， 单 击 “ 否 ”按钮 ， 如 下 图 所 示 。 


上 B 
\ | 2018/1/12 N-001 违 基 亚 W73 
2018/1/12 N-002  ” 语 苦 业 5700 
“2018/1/12 1-001 ”| 诗 标 名 林 E6 
2018/1/12'! Microsoft Excel 
| 2018/1/12 ] 


Dkr 


”2018/1/12! 是 再 还 天 要 选 入 
201871712 | 
0 | 2018/1/121] 
2018/1/241 

L2 | 2018/1/24 N001 

3 | 2018/1/24 NM-001 


步骤 16 ”文件 导出 成 功 提示 。 程 序 执行 完毕 后 ， 弹 出 提示 框 ， 提 示 用 户 文件 导出 成 功 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


kr | 


Okr 


步骤 18 覆盖 已 存在 的 文件 。 重 新 执行 “导出 文件 ” 宏 ， 输 入 文件 名 ， 若 输入 的 文件 名 已 存在 ， 


上 | _b 


2018/1/12N-001 i 
2018/1/12 N-002 Microsoft Excel 
2018/1/12 NM-001 
2018/1/12 Ss-001 
2018/1/12 NW-002 
2018/1/12 S-002 
2018/1/12 S-003 ， 
2018/1/12 NW-003 | / 
2018/1/24 N-002 证 基业 5700 
2018/1/24 N-001 庄 基 亚 W73 
2018/1/24 NM-001 医 托 之 拉 E6 
2018/1/24 S-002 三 性 D908i 
2018/1/24 -003 摩托 罗拉 E608g 癌 


文件 导出 成 功 


剧 商品 入 库 信 息 .txt - 记事 本 


文件 (F) ”编辑 (E) 格式 (O) 查看 (V) ”帮助 (H) 
Ve 其 全 ， 效 量 , 单价 
基业 73 部 10 ，2735 
2 其 亚 5700, 部 BB，8 ，2373 
托 罗 拉 E6 计 7 ，2279 
01, 三 星 U608, 部 ，6 ，2747 


基业 M73, 部 12 ，2735 
二 星 D908i, 部 ，13 ，2280 


汉 泛 中 尖 过 二 元 当 虽 当 二 二 


Fh 


02, 摩托 罗拉 V8, 部 ，12 ，3200 


-001 
-002 

-001 

-0 

-0 

-003 "人 部 ，13 ，1830 
-002 让 将 灶 5700， i 10 ，2373 
-001 
-001 
-002 
-003 
-002 


i 14 ，2279 


a 找 608 部， 1830 
罗 扩 VY3, 部 3200 


会 弹出 提示 框 ， 提 示 文 件 已 存 企 ， 是 否 履 盖 该 文件 ， 单 击 “ 是 ”按钮 ， 如 下 图 所 示 。 


¥2,735 


¥ 2, 373 
2, 279 
¥ 2,747 
¥ 3, 200 
¥ 2, 280 
¥ 2, 256 
1, 830 
¥ 2, 373 
¥ 2, 735 
2,279 
¥ 2, 280 
¥1,830 


和 B C 
3 | 2018/1/12 N-001 做 基 开 W73 
4 | 2018/1/12 N-002 诺基亚 5700 
5 | 2018/1/12 N00 Mrocof Excel 
6 
8 


| 201871712 S-00 
2018/1/12 N-00 
| 2018/1/12 Ss-00 
9 | 2018/1/12 S-00 
10 | 2018/1/12 NH-00 
11 | 2018/1/24N-00. 
12 | 2018/1/24 N-001 诺基亚 W73 
13 | 201871724J-001  。 邯 托 之 拉 E6 
14| 2018/1/245-002 二 年 D908i 


入 库 商品 信息 鼠 管 管理 rm 


日 其 商品 人 三 Was 单价 
2018/1/12 N-001 ds 7 x 10 ¥f2,735 
2018/1 /12 N-002 请 选择 需要 导出 的 数据 区 图 | 疗 2, 373 
2018/1/12 M-001 $A$2:$F97| ] 

2018/1/12 -到 加 


oop Ss— 002 
| 2018/1/12 3S-003 
2018/1/12 NM-003 
| 2018/1/24 N-002 
| 2018/1/24 N-001 
2018/1/24 N-001 


3 


nkr 可 
| 


¥1, 830 
¥2, 373 
2,735 
¥2, 279 


下 


Dkr Dkr Dkr | Dkr 
| 


下 


步骤 20 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 是 否 还 需要 选择 其 他 数据 区 域 ， 单 击 “ 否 ”按钮 ， 如 下 右 图 所 示 。 


由 B 上 


D F 
_ 指 定 目录 入 库 商品 信 息 管理 自动 创建 超 链 接 
日 期 商品 货号 品名 单位 数量 单价 


CO JJ 喇 DJ 本 


| 2018/1/12 N-001 天 其 2 一 Eee 10 ¥2,735 


| 2018/1/12 N-002 
| 2018/1/12 JI-001 
2018/1/12,S-001 
2018/1/12 NW-002 
2018/1/12 3-002 
2018/1/12 Ss-003 
| 2018/1/12 NM-003 


Microsoft Excel 


¥ 2, 373 
¥ 2, 279 
¥2,747 
¥ 3, 200 
4 2, 280 
¥ 2, 256 
¥1,830 


| 2018/1/24 N-002 湛 且 Eo " 10| ¥2, 373 
| 2018/1/24 NH-001 ”次 基 汪 N73 | | ¥2,735 
| 2018/1/24 NW-001  ” 摩 插 办 拉 E6 4 ¥2,279 


上 F 


二 B 
指定 目录 | 入 库 商 品 信息 管理 自动 创建 超 链接 
日 期 商品 贷 亏 品 多 3 过 
2018/1/12 N-001 Microsoft Excel 关 | 10 ¥2,735 


2018/1/12 N-002 
2018/1/12 NM-001 
2018/1/12 3-001 
2018/1/12 NM-002 


¥ 2, 373 
¥2,279 
¥ 2,747 
¥ 3, 200 


2018/1/12 S-002 = yf 2, 280 
2018/1/12 Ss-003 ¥ 2, 256 
2018/1/12 NW-003 ¥1,830 
2018/1/24 N-002 ¥2, 373 
2018/1/24 N-001 ¥ 2, 735 
2018/1/24 NM-001 ¥2,279 


ok 
ee | | 到 一 


Dkr | Dkr Dkr Dkk 
下 中 


步骤 22 ”查看 重新 导出 的 数据 。 在 目标 文件 夹 中 打开 “商品 入 库 信 息 .txt” 文 件 ， 可 看 到 如 下 图 所 示 的 数据 。 


国 商品 入 库 信息 .bx - 记事 本 


文件 (Fi “编辑 ([E) ”格式 (D) ”查看 (V) ”帮助 (H) 
二 半 计 凌 全 ; 效 量 , 单价 
获 业 N73， Ee 10 ，2735 
700, 3 ，2373 
托 罗 FE6 BR,，7? ，2279 
0 三 量 j608 部 2747 
02, 摩托 罗拉 Y8, 部 ，12 ，3200 


步骤 23 ”不 覆盖 已 存在 的 文件 。 重 新 执行 “导出 文件 ” 宏 ， 输 入 文件 名 ， 若 输入 的 文件 名 已 存在 ,会 弹出 提示 框 ， 提 示 文 件 已 存在 ， 是 否 覆 盖 该 文件 ， 单 击 “ 否 ”按钮 ， 如 下 图 所 示 。 


F 


A E ,_F 
指定 目录 | 入 库 商品 信息 最 管理 自动 创建 起 链接 
日 期 ” 商品 贷 亏 品名 单价 
| 20L8 /1 /12 0 ¥ 2, 735 
Microsoft Excel | \ 
' 2018/1/12 及 ] 8 ¥2,373 
| 2018/1/12 于- 了 | ¥2,279 
四 Goon | ¥2, 747 
| 2018/1/12 I | ¥ 3, 200 
| 2018/1/12| 司 有 站 ¥ 2, 280 
| 2018/1/12 S- i : ¥ 2, 256 
2018/1/12 -003 ”摩托 罗拉 E608 ¥1, 830 
| 2018/1/24N-002 ”诺基亚 5700 | ¥ 2, 373 
2018/1/24N-001 洋基 亚 W73 可 ¥ 2, 735 


th CD = = 


| 一 全 
| 一 “一 


步骤 24 输入 新 文件 名 。 在 弹出 的 输入 对 话 框 的 文本 框 中 输入 新 的 文件 路 径 、 文 件 名 及 后 级 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


E 


“入 亩 商品 HE 信息 忆 痛 理 目 动 创 建 起 销 接 
日 期 。” 商品 党 己 品 有 数量 

D0 RATAL? N=NNI1 诬 基 :LNT ] ¥ 2,735 

20] Microsoft Exce| x ¥2. 373 


20] 请 输入 导出 后 的 文件 名 7| ¥2, 279 
<0U] (包括 文件 的 路 径 . 文件 名 太后 综 (， js 1 | 白 ¥2,747 


20] 12 ¥f3,200 


2 区 党 广 体 和 二 \ 终 文人 商品 入 床 信息 L tx 2 


01 wr — | — | | ¥2, 256 
201871712 W003 车 托儿所 E ¥1, 830 
| 2018/1/24N-002 “证 基业 57 间 0 ¥2,373 
2018/1/24 N-001 洛 基 亚 W7: 1 ¥ 2, 735 


1 
< | 
3 | 
4 
5 
6 | 
" | 
8 
9 


E F 
_ 人 库 商品 品 信息 息 管 理 ”自动 创建 超 链接 
= 数 齐 单价 
2018/1/12 N-001 证 基业 N73 ] )| ¥2,735 
2018/1/121 输入 | | ¥ 2, 373 
2018/1/12 放弃 本 要 导 中 的 数据 区 7 千 2, 279 
| 2018/1/12 8 [ee | ¥ 2, 747 
dd | 12 ¥3,200 


] 201871712| I 

2018/1/12 NM-003 a : 3| 1,830 
' 2018/1/24 了 -002 诺基亚 57( 忆 ¥2, 373 
12 | 2018/1/24 N-001 i 7 12  ¥2,735 
13 | 2018/1/24 MN-001 EE 上 ¥ 2, 279 


步骤 26 不 选择 其 他 的 数据 区 域 。 弹 出 提示 框 ， 提 示 用 户 是 否 还 需要 选择 其 他 的 数据 区 域 ， 单 击 “ 否 ”按钮 ， 如 下 右 图 所 示 。 


上 F 


C3 入 库 商 品 信息 息 管理 9 动 创 奸 直 链 拉 


期 商品 贷 己 重 单价 


ET Microsoft Excel | ¥2,735 
201871713|] | 8| ¥2,373 
2018/1/121] yas 要 先 径 其 他 数据 反 | 了 ¥2,279 
2018/1/12| | 6 ¥2,747 


2018/1/12|] z 12| ¥3,200 
2018/1/12; | am | vw 10 ¥f2, 280 
2018/1 /1 .20 | 2, 256 
2018/1/12 NM-003 车 填写 机 E608e 1,830 
2018/1/24 N-002 证 基 汪 5700 LDO ¥2,373 
2018/1/24 N-001 诺基亚 W73 | ¥ 2, 735 
201871724 M-001 摩托 专 提 E ll ¥2, 279 


步骤 27 提示 文件 导出 成 功 。 程 序 执行 完毕 后 弹出 提示 框 ， 提 示 用 户 文件 导出 成 功 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 


上 b | _E | | 
指定 目录 | 入 库 商 品 信息 管理 反对 
日 期 商品 锅 亏 加 名 单位 数 主 音信 


Se 


2018/1/12 N-001 we ae 10| ¥2,735 
2018/1/12 JJ-002 8| 和 2, 373 
2018/1/12 NH-001 _ | 7 了 | ¥2,279 


2018/1/12s-001 : ] 6 ¥f2,747 


2018/1/12 NM-002 | | 千 3, 200 
2018/1/12 S-002 本 定 八 | | 10 ¥f2, 280 
2018/1/12 S-003 | 15| ¥2,256 


Ai LO 一 Cr Cl 和 Co 


| 


¥1, 830 
¥ 2,373 
¥2,735 
¥ 2, 279 


2018/1/12 NM-003 
2018/1/24 N-002 
2018/1/24 N-001 
2018/1/24 M-001 


tr Dkr npr 
| 


Dkr 
= 


步骤 28 ”查看 导出 的 数据 。 在 目标 文件 夹 下 打开 “商品 入 库 信 息 1.txt” 文 件 ， 即 可 查看 导出 的 数据 ， 如 下 图 所 示 。 


慎 商品 入 库 信 息 1.txt - 记事 本 
7 _ 帮助 (H) 


塞 于 5700 1 
罗拉 E6, 部 
二 星 U608, 部 , 
A- 002， ee 


12，S-002 三星 p908i, 部 ，10 


7.2.2 ”编写 代码 将 文本 文件 导入 Excel 表 格 


本 小 节 将 介绍 如 何 编写 VBA 程 序 代码 将 文本 文件 中 的 数据 导入 Excel 工 作 表 。 文 本 文件 中 不 同 项 目的 数据 以 逗号 分 隔 ， 本 实例 的 代码 在 将 数据 导入 至 Excel 工 作 表 时 会 自动 识别 逗号 分 隔 符 ， 将 不 同 项 目 
的 数据 写 入 不 同 单元 格 中 。 


步骤 01 编写 “导入 文件 0” 过 程 代 码 。 继 续 上 一 小 节 的 操作 ， 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导入 文件 0” 过 程 的 第 1 部 分 代码 ， 主 要 用 于 声明 变量 。 


' 芷 Excel EEC 
sub 守 人 “ 件 0 
' 声 昌 变量 
Dim fn As Strine 
Dim itilenum ks Integer 
Dim result is Integer 


内 


DIm nyrow As Integer 

Dim nycolumn is Inteser 

Dim readout As String 

' 若 程 序 执行 袜 疼 则 跳 转 至 镁 去处 理 代码 段 


On Error colIo Bsc 


步骤 02 ”获取 用 户 输入 的 文件 名 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导入 文件 )” 过 程 的 第 2 部 分 代码 ， 主 要 调用 自 定义 的 “输入 文件 名 0” 遂 数 获 取 用 户 输入 的 
文件 名 ， 再 打开 该 文件 。 


函数 
pn = 注入 交 件 名 


filenunm = FreeFile0Q 
"Be 耻 ， 让 Input 上 AS #+t1]1enum 


Set ws a 二 dd 
myrow = 1 
mycolumn = 1 


步骤 03” 读 取 文 件 中 的 字符 并 写 入 工作 表 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导入 文件 0)” 过 程 的 第 3 部 分 代码 ， 用 于 读 取 文件 中 的 字符 ， 并 写 入 相应 的 单元 
格 。 


箱 环 读 取 文件 中 的 字 俐 
While Not EOF (filenum) 
可 于 出 的 棕 得 中 于 为 将 其 输入 到 
儒 一 \ 3 
同一 行 的 一 个 单元 格 
If readout <> “* Then 


ws.Cells(myrow, mycolumm. 
hn = hep meal 


lumn = 
" 关 提 次 昌 的 宇和 第 田 空 出 续 至 下 一 行 
se 
Nyrow = myrow + 1 
mycolumn = 1 
End I+t 
Wend 


步骤 04 ”判断 是 否 需 要 导入 其 他 的 文本 文件 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导入 文件 0)” 过 程 的 最 后 一 部 分 代码 ， 用 于 判断 是 否 需要 导入 其 他 的 文本 文件 。 
如 果 不 需要 ， 则 关闭 文件 并 提示 文件 导入 成 功 。 


一 | = .让 A 
result = JsgBox( 是 否 还 需 站 村人 文本 文件 ，_ 
Buttons :=vbYesNo) 
Loop Until] result = 了 
Close #i1lenum 
MsgBox (” 诡 件 于 入 成 功 !1") 


Bsc. 


Exit Sub 
End Sub 


知识 链接 ”将 文本 文件 导入 Excel 工 作 表 
要 将 文本 文件 导入 Excel 工 作 表 中 ， 首 先 需 打开 指定 文件 号 的 文本 文件 ， 即 使 用 Open fn For Input As#filenum 语 句 打 开 文 本 文件 ， 再 使 用 Input#filenum，readout 语 句 读 取 文本 文件 中 的 数据 。 
重点 语法 与 代码 剖析 : 用 Input# 语 句 读 取 文 件 中 以 逗号 分 隔 的 字符 
在 步骤 03 的 代码 段 中 ，Input#filenum，teadout 语 名 用 于 读 出 文件 中 以 运 号 分 隔 的 字符 ， 并 将 读 取 的 值 赋 给 readout 变 量 。 


步骤 05 自 定义 “输入 文件 名 0)” 函数 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 获取 用 户 输入 的 文件 名 ， 并 检查 该 文件 是 否 存 在 。 如 果 不 存 在 ， 则 重新 输入 文件 


| 通用 ~ | 


人 上 文件 已 计 和 在 
Function 输入 文件 各 QO as gi 
Dim tilename Ms Strl 
filename = InoutBox(” 靖 年 人 需要 于 入 的 文件 名 - 
& Chr(10) & “ (得 括 路 径 、 文件 名 及 后 缀 (. txt)) ”) 
0 


existance = Dir(filenane, vbNormal) 
If existance =“”Then 
file ene = 入 过 四 上 区 


( 
文件 名 ”让 Chr(10) 
0 - 


End I+ 
Loop Until (existance 《> ”") 


输入 文件 名 = filenane 


End Functlon 


步骤 06 运行 “导入 文件 0” 过 程 代码 。 返 回 Excel| 视 图 ， 按 Alt+F8 组 合 键 ， 打开“ 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 导 入 文件 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


步骤 07 输入 文件 名 。 弹 出 输入 对 话 框 ,提示 用 户 输入 需要 导入 的 文件 名 ， 在 文本 框 中 输入 具体 的 文件 路 径 、 


文件 名 及 后 级， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


指定 目录 | 入 库 商 品 信息 管理 ET 


2018/1/12 MN 区 三 二 
2018/1/12 Microsoft Excel 


| 2018/1/12| parm 


= 
2018/1/12 
2018/1/12 svue 
2018/1/12 NM-003 
2018/1/24 N-002 
12 | 2018/1/24 N-001 
2018/1/24 NM-001 


= 


单位 


IrO—T | 2906 
13 ¥1,830 
10 ¥2,373 
12| ¥2,735 
14| ¥2,279 


步骤 08 ”提示 是 否 导入 其 他 文件 。 弹 出 提示 框 ， 提 示 用 户 是 否 还 需要 导入 文本 文件 。 若 要 导入 ， 则 单 击 “ 是 ”按钮 ， 如 下 图 所 示 。 


Microsoft Exce| 


入 文本 文件 


步骤 09 ”输入 文件 名 。 再 次 弹出 输入 对 话 框 ， 提 示 用 户 输入 需要 导入 的 文件 名 ， 在 文本 框 中 输入 具体 的 文件 路 径 、 文 件 名 及 后 缀 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


Microsoft Excel 


(包括 路 径 、 文 件 名 及 后 绎 (.bd) 


:实例 文件 第 ?7 章 \ 最 终 文件 \ 商 品 六 库 信息 1. txt 


步骤 10 ”不 继续 导入 其 他 文件 。 弹 出 提示 框 ， 提 示 用 户 是 否 还 需要 导入 文本 文件 。 若 不 再 导入 ， 则 单 击 “ 否 ”按钮 ， 如 下 图 所 示 。 


Microsoft Excel 


Dm 


地 人 文本 文件 


| 
[JJ | | 


步骤 11 提示 文件 导入 成 功 。 程 序 执行 完毕 后 会 弹出 提示 框 ， 提 示 文 件 导 入 成 功 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 
B | | D 
商品 货号 品名 ”单位 
Microsoft Excel XK 


-~-] 和 司 中 | 眉 


‘dy CD 


步骤 12 ”查看 导入 文本 文件 后 的 效果 。 此 时 ， 工 作 表 Sheet13 和 Sheet12 中 即 为 用 户 两 次 导入 的 文本 文件 的 数据 ， 如 下 图 所 示 。 


B C D 
日 期 品 货 亏 品名 单位 
”2018/1/12 N-001 诺基亚 W73 部 
2018/1/12 N-002 诺基亚 570 部 
201871712 -001 摩托 多 拉 E 部 
2018/1/12 S-001 二 年 U608 部 
2018/1/12 -002 ”摩托 罗拉 Y 部 
2018/1/12 S-002 二 星 D908i 部 


1 
< | 
3 | 
| 
5 | 
0 | 
(il 
8 


oneet13 Sheet12 | 入 库 iC 录 | Sheet2 Sheet3 


7.3 ”商品 备注 信息 的 导入 与 导出 


如 果 用 户 需要 对 Excel 工 作 表 中 数据 单元 格 的 批注 信息 进行 统一 操作 ， 可 以 先 将 数据 单元 格 的 批注 信息 导出 至 一 个 文本 文件 中 ， 然 后 在 文本 文件 中 输入 或 修改 需要 为 数据 单元 格 添加 的 批注 信息 ， 再 使 用 
VBA 程 序 代 码 将 其 导入 到 工作 表 中 ， 并 且 为 不 同 的 数据 单元 格 添加 相对 应 的 批注 信息 。 


要 码 看 视频 


~ 


上 : 实例 文件 \ 第 7 章 \ 原 始 文 件 \ 商 品 备注 信息 的 导入 与 导出 .xlsm 


: 实例 文件 \ 第 7 章 \ 最 终 文 件 \ 商 品 备注 信息 的 导入 与 导出 .xlsm、 商 品 附加 信息 .txt、 商 品 附加 信息 1.txt 


商品 的 备注 信息 一 般 单 独 存放 在 表格 的 一 列 中 ， 有 时 也 可 以 使 用 单元 格 批注 来 实现 。 本 小 节 将 介绍 如 何 将 批注 文本 导出 到 文本 文件 中 ， 具 体操 作 如 下 。 


| 查看 批注 信息 。 打 开 原 始 文件 ， 将 鼠标 指针 置 于 “品名 ” 列 下 方 的 任意 单元 格 上 ， 可 看 到 该 商品 的 基本 参数 以 批注 形式 显示 ， 如 下 图 所 示 。 


入 库 商 品 信 入 管理 

’ 日 期 ” 商品 贫 亏 i 全 
,| 2018/1/12 N-001 ”诺基亚 N73h 
| 2018/1/12 NH-002 ”诺基亚 5700 
2018/1/12 1-001 ”摩托 罗拉 E6 

| 2018/1/12 S-001 “三星 U608 

| 2018/1/12 HN-002 “摩托 罗拉 Y8 
2018/1/12 3-002 二 星 D908i ¥ 2, 280 
2018/1/12 Ss-003 二 性 D828 ¥2, 256 
2018/1/12 NW-003 ”摩托 罗拉 E608g 3 ¥f1, 830 
| 2018/1/24N-002 ”诺基亚 5700 六 10 ¥f2, 373 
2018/1/24 N-001 说 基 亚 N73 | | ¥ 2,735 
2018/1/24 -001 | 摩托 色拉 E6 i 14 ¥2,279 


| 
Dkr Dkr Dkr ojkr 了 Dkr nkr ™ 


pF 


¥ 2,747 
¥3,200 


可 
二 


过 


二 


双 


= 


国 国 | 血 | 


中 Solver (SOLVYER. ILAN) 

- VBAProject (FUNCRES. ILAN) 

YBAProject (商品 记 上 后宫 的 

et Exoe 国 。” 查看 代码 (QO) 
一 里 | Shestl (入 周 国 ” 圭 看 对 得 [8) 
- 国 围 | Sheet2 ee 


Ep A | E)... 
移 除 (BR) 


步骤 03 ”编写 “导出 批注 )” 过 程 代码 。 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 批注 0” 过 程 的 第 1 部 分 代码 ， 用 于 获取 用 户 输入 的 导出 文件 名 ， 并 检查 该 文件 
是 否 存 在 。 


下 天 让 的 批注 导出 至 文本 文件 
Sub 守 出 批注 昌 
Dim Filename As 


妇 果 程 导 多 昌 褒 演 册 就 扣 | 错误 处 理 代码 自 


On Error GoTo 日 


提示 用户 输入 导出 后 的 文件 名 


IT utBox 


全 名 & Chr(10) _ 
文件 名 及 后 强 (txt)): 


DiriFilename, vbNormal) 


步骤 04 ”获取 文件 号 并 打开 该 文件 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 批注 0)” 过 程 的 第 2 部 分 代码 ， 用 于 判断 是 否 覆 盖 已 存在 的 文件 ， 获 取 文 件 号 并 打开 
该 文件 进行 输出 操作 。 


I+t a a 


I 
呈 -是 是 否 要 村 盖 该 文件 ”， 


ee 
End I 
op Until (exist = ”” Or result = 日 
"他 


文件 并 对 文件 进行 输入 操作 


filenum = prepile 0 
Open Filenanme For Output As #1]enum 


知识 链接 ”用 Comments 对 象 设置 批注 


批注 用 于 对 单元 格 添加 注释 ， 用 户 可 以 编辑 批注 中 的 文字 ， 也 可 以 删除 不 需要 的 批注 。 在 Excel VBA 中 ， 可 以 使 用 Comments 对 象 设 置 单元 格 的 批注 信息 。 


步骤 05 输出 批注 所 在 单元 格 内 容 及 批注 文本 到 文件 中 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导出 批注 )” 过 程 的 最 后 一 部 分 代码 ， 用 于 将 批注 所 在 单元 格 内 容 及 
批注 文本 写 入 文本 文件 中 。 


和亲 后 有 于 二 未 这 让 
Each con In ActiveSheet. Comments 


"输出 批注 所 在 的 单元 格 内 容 至 文件 中 


es ty com. Parent : 


答 开 批注 的 要 至 文件 中 


Print #ililenum, com. Text. 
Print #filenunm, Chr (13) 
" 删除 批注 
conm. Delete 
Next com 
Close 1]enmm 
JsgBox (人 文件 导出 成 功 ! ”) 
BSC: 
Exit Sub 
End Sub 


步骤 06 执行 “导出 批注 )” 过 程 代码 。 返 回 Excel 视 图 ， 按 Alt+F8 组 合 键 , 打开“ 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 导 出 批注 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


步骤 07 输入 保存 批注 的 文件 名 。 弹 出 输入 对 话 框 ,提示 用 户 输入 保存 批注 的 文件 名 ， 在 文本 框 中 输入 具体 的 文件 路 径 、 文 件 名 及 后 级， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


一 入 库 商 品 信 总管 理 
”日 期 ”商品 邹 1 芹 单位 单价 
| 2018/1/1 Microsoft Excel xX 2， 1 99 


2 8 ,373 
2 请 输入 导出 后 的 文件 匀 | 


”2018/1 /1 (包括 路 径 、 文 件 和 名 及 后 绎 (bd)): 一 一 ”| 本 远 
| 2018/1/1 Tf2,747 
2018/111 a ‘3, 200 
| 2018/1/1 一 一 人 i | £2, 280 
2018/1/12 3-003 ”三星 D828 | 15 ¥f2, 256 
“2018/1/12 -003 摩托 罗拉 E608g ”部 13 ¥1,830 
2018/1/24N-002 ”诺基亚 5700 “部 10 ¥f2, 373 


| 
3 | 2018/1/12 了 -001 i / 0| ¥2,735 
4 | 2018/1/12|n-002 国 erosoR ec “| 8 ¥f2, 373 
5 | 2018/1/12 1-001 | ?| F2279 
6 | 2018/1/12 S-001 本 | 6 ¥2,747 
7 | 2018/1/12 N-002 | L2| ¥3, 200 
8 | 2018/1/12 8S-002 re | 10 | ¥2, 280 
9 | 2018/1/12 S-003 加 及 二 总 
10 | 2018/1/12 -003 ”摩托 罗拉 E608g 名 13 ¥1,830 
11 | 2018/1/24N-002 ”诺基亚 5700 局 0| ¥2,373 


步骤 09 查看 导出 文件 的 效果 。 在 目标 文件 夹 中 打开 “商品 附加 信息 .txt” 文 件 ， 可 看 到 在 该 文件 中 保存 了 导出 的 商品 名 称 及 其 基本 参数 ， 如 右 图 所 示 。 


司 | 商品 附加 信息 .txt - 记事 本 
文件 (Fi) 编辑 ([E) 格式 (0O) 查看 (V) 帮助 (H) 
i 洛 基 亚 N73, 基本 和 参数 :网络 频 弯 ，6SJN7GPRSAEDGE， 
850/900/1800/ 1900MHz 尺寸 林 和 ， 103.5X 49. 3x 10. 
小 26 万 色 TFT 彩 色 屏 莫 ，240X 320 像 素 ，2. 2 英寸 摄 
$4TF 卡 CmicrosD 卡 ) z 
诺基亚 5700, 基本 参数 :网 络 频率 ，GSIU/GPRS/EDGE; 
900/1800/1900MHz 瓜 寸 体积 ，103X 53X 11. 9mm 屏 和 
色 闲 色 屏 虹 ; 240X 320 像 素 ， 2. 2 次 让; 外 屏 参 和 
局 党 全 英寸 ， 摄 
于 二 罗 O71800 基本 乓 :网络 顷 ， OSGPRS/EDOE 
103. 5X 51X 12. 9mm 厅 
2. 1 英寸 ， 摄像 头 ， 
和 CIM/ CPRS/EDGE, 
十 体积 ，99X 51X 15. 2mm 屏幕 疼 
0 Xx 320f 过，2. 1 碳 计 ， 摄 虱 头 ， 反共 
厚 托 至 拉 V8, 基本 2 GSM/GPRS/EDGE:; 
es 2: 中，103X 53X 11. 9mm 民 幕 参数 ， .26 万 
未 ? 色 屏 蜡 : 240 x 3230 像 素 ， 2. 2 开导; 外 屏 参 SR 26 万 色彩 色 


步骤 10 ”不 覆盖 已 存在 的 文件 。 重 新 执行 “导出 批注 ” 宏 ， 输 入 文件 名 ， 如 果 目 标 文 件 夹 中 已 存在 用 户 输入 的 文件 名 ， 会 弹出 提示 框 ， 提 示 文 件 已 人 存在， 是 否 要 黎 盖 该 文件 ， 单 击 “ 否 ”按钮 ， 如 右 图 


所 示 。 


CG | LD 
\ : mW = ft 
入 库 阅 品 信 息 管理 
日 期 ”商品 货号 品名 单位 
2018/1/ 128- O00 ee 和 
Microsoft Excel 
2018/1/12 N-0( 


2018/1/12 NM-0C 
2018/1/12 s-0t 信件 已 经 行 企 ， 十 百 要 要 甘 训 广 


| 2018/1/12 NW-0( 

2018/1/12s-0( 

| 2018/1/12 s-0( 
2018/1/12 -003 ”摩托 罗拉 E608g 局 
2018/1/24 N-002 佛 基 炎 5700 
2018/1/24 NH-001 ”诺基亚 N73 


ta ED = = 


一 2 
| 一 ( 


| 


步骤 11 重新 输入 文件 名 。 再 次 弹出 输入 对 话 框 ， 在 文本 框 中 输入 具体 的 文件 路 径 、 文 件 名 及 后 级 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


B 


D 
入 库 商 品 信息 管 班 
日 期 ” 商品 贷 亏 各 单位 \ 
2018/1/12 N-001 诺基亚 W73 ¥ 2,735 
2018/1# Microsoft Excel ; 对 2， 3 
2018717 | 2, 279 
缠 径 、 文 件 名 及 后 和 2, 747 
2018/1/ : | | ¥3,200 
2018/1/ | | “ 肪 2, 280 
2018717 F.\ 头 例 W 件 第? 草 ‘最 终 文件 \ 了 两 喇 附 加 信息 1. txt ¥ 2, 256 
2018/1/12 NI-003 ”摩托 罗拉 E608g 部 ] 13| ¥1, 830 
2018/1/24 NH-002 ”诺基亚 5700 : 10 ¥2, 373 


步骤 12 ”提示 文件 导出 成 功 。 程 序 执行 完毕 后 弹出 提示 框 ， 提 示 用 户 文件 导出 成 功 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 
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B E pp 
入 库 商 品 信息 管理 

日 期 ” 商品 个 己 加 名 单位 | 单价 
2018/1/12H-001 人 话 呈 儿 N73 = L0| ¥2,735 
2018/1/12|N-002 于 mE | ¥ 2, 373 
2018/1/12 M-001 : ¥2,279 


2018/1/12 S-001 文件 导出 成 功 ! | ¥ 2,747 
2018/1/12 NM-002 | 12 ¥3,200 


2018/1/12 3-002 i ¥ 2, 280 
2018/1/12 S-003 : ¥ 2, 256 
2018/1/12 -003 ”摩托 罗拉 E6088 | 13 ¥1,830 
2018/1/24 -002 诺基亚 5700 10 ¥2, 373 


7.3.2 ”编写 代码 将 文本 文件 作为 批注 导入 Excel 表 格 


除了 可 以 将 批注 信息 导出 到 文本 文件 ， 还 可 以 通过 VBA 程 序 将 文本 文件 作为 批注 信息 导入 到 Excel 表 格 。 具 体操 作 如 下 。 


步骤 01 ”编写 “导入 批注 0)” 过 程 的 代码 。 继 续 上 一 小 节 的 操作 ， 再 次 进入 VBE 编 程 环境 ， 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导入 批注 0)” 过 程 的 第 1 部 分 代码 ， 
用 于 获取 需要 导入 的 文件 名 ， 然 后 打开 该 文件 并 进行 输入 操作 。 


和 
sub 导入 批注 站 
Dim ee Ms Strine 
Dim readoutl is String 
Dim Filename Ls Strine 
og cells As Wn 
n, Error GoTo 
” 里 得 医 划 导入 的 部 注 文件 名 
Filename = Application. GetOpenFf1ilename 


"打开 文件 


filenum = FreeFileQ 


While Not FOF (tilenum) 
Input #filenum, ReadOut 


步骤 02 ”将 读 出 的 数据 写 入 相应 单元 格 的 批注 中 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导入 批注 ()” 过 程 的 第 2 部 分 代码 ， 用 于 读 取 打开 的 文本 文件 的 数据 ， 然 后 
与 单元 格 内 容 比 较 ， 将 读 出 的 基本 参数 添加 为 单元 格 的 批注 文本 。 


基 订 吕 出 的 学 符 虽 第 为 2 日 与 菜 蛙 元 格 内 容 相 同 
If Readout = cel1.Value And _ 
Readout <> “” Then 
i 
fs 
' 读 出 下 一 个 字符 并 将 其 设置 为 批注 


Input Wf1] enon readoutl1 
End If 
With cell 
. ddComment 
.Commnent. Text Text:=readoutl 
.Comnent. Yisible = False 
End YWith 
a 三 +]1 
End I+ 
Next cell 
Wend 
Close #filenum 


知识 链接 ”将 文本 文件 中 的 数据 添加 到 单元 格 批注 中 


在 步骤 02 中 ， 使 用 Input#filenum ，teadout1 语 名 将 指定 文件 中 的 数据 读 入 变量 teadout1 中 ， 再 使 用 AddComment 方 法 添加 批注 ， 并 以 teadout1 变 量 的 值 作 为 Comment 对 象 的 Text 属 性 的 值 。 


步骤 03 ”批注 导入 成 功 提示 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导入 批注 )” 过 程 的 最 后 一 部 分 代码 ， 用 于 在 完成 批注 导入 后 提示 导入 成 功 。 


导出 ,xlsm - 


ma 


MsgBox 人 IE 1 ”) 


Exit Sub 
End Sub 


步骤 04 ”选择 要 添加 批注 信息 的 数据 区 域 。 返 回 Excel 视 图 ， 在 “入 库 记 录 ” 工 作 表 中 选中 单元 格 区 域 A3: F16， 如 下 图 所 示 。 


日 期 ”商品 货号 
2018/1/12 


| 


So 


PEeee> 


Cn 


导入 批注 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


步骤 05 ”执行 “导入 批注 0” 过 程 代码 。 按 Alt+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 


步骤 07 ”批注 导入 成 功 。 程 序 执行 完毕 后 ， 在 工作 表 中 可 看 到 “品名 ” 列 的 数据 单元 格 的 右上 角 都 添加 了 一 个 红色 小 三 角 ， 如 下 图 所 示 。 


C pp | 
入 库 疝 品 信息 管理 


日 期 ”商品 货号 品名 单位 数量 


2018/1/12 


6 


Ei | | | 
mom mre 


步骤 08 ”查看 导入 的 批注 信息 。 此 时 将 鼠标 指针 置 于 红色 小 三 角 所 在 的 单元 格 上 ， 可 查看 相应 的 批注 信息 ， 如 下 图 所 示 。 


CC D 
入 库 陪 HI] 信 电 管 理 

日 期 。” 商品 货号 品名 AT 单价 

2018/1/12 N-001 ”诺基亚 N73 "nm “ 训 网 络 频 计 : ¥ 2, 735 

， IGSMGPRS FE 

| 2018/1/12N-002 “诺基亚 5700 | 剖 pe0/eoogo0 /loommt: | 站 2, 373 
2018/1/12 NM-001 ”摩托 罗拉 E6 EE ¥ 2, 279 

| Rs 

| 2018/1/12 S-001 “二星 U608 SP 5 ¥2,747 

2018/1/12 NM-002 ”摩托 罗拉 Y8 部 ?| ¥ 3, 200 

| 2018/1/12 8S-002 “| 三 星 D908i 部 ¥ 2, 280 

' 2018/1/12 Ss-003 二 年 D828 aP ¥ 2, 256 


a 


‘DD =] 人 口 


2018/1/12 NH-003 摩托 专 拉 E608g 部 和 1, 830 
2018/1/24W-002 ”诺基亚 5700 “部 ¥2, 373 
| 2018/1/24N-001 ”诺基亚 HW73 部 2 ¥f2, 735 
“2018/1/24 和 -001 “摩托 罗拉 E6 。 “部 ¥ 2, 279 
2018/1/24 S-002 ”三 星 D908i “部 13| ¥f2, 280 
;| 2018/1/24 NM-003 “摩托 罗拉 E608g 部 10 1, 830 
;| 2018/1/24N-002 ”摩托 罗拉 Y8 部 | ¥f3, 200 


第 8 草 ”销售 分 析 系 统 


各 公司 在 销售 产品 后 ， 都 会 将 销售 数据 记录 下 来 ， 并 根据 销售 数据 分 析 产 品 的 市 场 表现 ， 相 应 调整 生产 、 营 销 等 方面 的 策略 和 计划 。 在 分 析 数 据 时 ， 图 表 是 最 常用 和 最 有 效 的 工具 之 一 。Excel 的 图 表 功 
能 已 很 强大 ， 本 章 则 将 使 用 Excel VBA 程 序 代 码 实现 更 加 自动 化 的 图 表 制 作 ， 如 灵活 修改 数据 区 域 生成 动态 图 表 、 快 速 转换 图 表 类 型 等 。 


本 节 以 “ 庆 瑞 电器 各 分 店 销售 表 .xlsx” 为 例 ， 使 用 Excel 中 的 三 维 饼 图 分 析 各 分 店 的 月 销售 额 占 比 。 先 使 用 “开发 工具 ”选项 卡 下 的 “录制 宏 ” 按钮 ， 录 制 一 个 制作 三 维 饼 图 的 宏 ， 然 后 参考 录制 的 宏 代 
码 ， 编 写 出 自 定 义 创 建 三 维 饼 图 的 VBA 程 序 。 该 程序 允许 用 户 选 定 需要 分 析 的 数据 区 域 ， 能 够 更 加 方便 、 灵 活 地 创建 三 维 饼 图 。 


要 码 看 视频 


: 实例 文件 \ 第 8 章 \ 原 始 文 件 \ 庆 瑞 电 器 各 分 店 销售 表 .xlsx 


: 实例 文件 \ 第 8 章 \ 最 终 文件 \ 三 维 饼 图 .xlsm 


本 小 节 将 使 用 “录制 安 ” 功 能 录制 创建 各 分 店 月 销售 额 占 比 三 维 饼 图 的 安 代 码 ， 为 后 续 的 VBA 程 序 编写 奠定 基础 。 具 体操 作 如 下 。 


又 01 单 击 “ 录 制 安 ” 按 钮 。 打 开 原 始 文件 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 “录制 安 ” 按 钮 ， 如 下 图 所 示 。 


3 | 北京 市 分 店 al sol ol oo.1d 


步骤 02 录制 宏 。 弹 出 “录制 宕 ”对 话 框 ,在 “ 宏 名 ”文本 框 中 输入 “自动 创建 三 维 饼 图 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


步骤 03 ”选择 创建 图 表 的 数据 。 返 回 工作 表 ， 选 中 单元 格 区 域 A3: B14， 如 下 左 图 所 示 。 


CG D 上 


F 
2018 年 庆 瑞 电器 各 分 店 销售 表 


人 
33 01 汪 2 


北京 市 分 店 84. 21 2| 93.31 


7 
骨 阳 区 分 让 85.25| 86.55| 90.26| 92.21 34 加 
东城 区 分 店 | 86.21| 84. 56 be, 2] 87. 24 e020 
. \ 4 


80.12| 83.25| 86.54| 90.54| 84.21 
87. 本 
89. 65 
86. 52 
79. 本 
78. 和 
76. Sa 
77. 65 
78. 65| 80. 


步骤 04 ”插入 三 维 饼 图 。 在 “插入 ”选项 卡 下 单 击 “ 图 表 ” 组 中 的 “插入 饼 图 或 圆 环 图 ”按钮 ， 在 展开 的 列表 中 单 击 “ 三 维 饼 图 ”选项 ， 如 下 右 图 所 示 。 


Power Pivot 


和 ~ 
ll I 及 > 


步骤 05 ”查看 创建 的 三 维 饼 图 效果 。 此 时 ， 在 工作 表 中 根据 选择 的 数据 区 域 创 建 了 各 分 店 1 月 份 销售 额 的 三 维 饼 图 ， 但 是 图 表 中 没有 显示 数据 标签 ， 如 下 图 所 示 。 


“ 北京 市 分 店 “朝阳 区 分 店 “ 本 城区 分 店 “四 城 区 分 店 
党 广 区 人 才 店 “ 海 泻 区 他 店 “丰台 区 分 店 全 下 区 分 店 


“顺义 县 分 店 “密云 县 分 店 “昌平 县 分 店 “延庆 县 分 店 
() 


步骤 06 输入 图 表 标题 。 在 图 表 中 选中 图 表 标题 ， 并 输入 “2018 年 1 月 各 分 店 的 销售 额 ”， 如 下 图 所 示 。 


4 如 
.2018 年 1 月 各 分 店 的 销售 额 


6 o 


"北京 市 分 店 。 朝阳 区 分 店 “ 东城 区 分 店 “ 内 城区 分 店 
= 崇 区 区 分 店 ， 海淀 区 分 店 “丰台 区 分 店 。 宣 武 区 分 店 
有 并 受 分 店 。 富 云 全 分 店 。 目 平 呈 作 店 和 鞍 庆 呈 作 店 


步骤 07 显示 数据 标签 。 在 “图 表 工具 -设计 ”选项 卡 下 单 击 “ 图 表 布 局 ”组 中 的 “添加 图 表 元 素 ” 按 钮 ， 在 展开 的 列表 中 单 击 “ 数 据 标签 > 数据 标签 外 ”选项 ， 如 下 图 所 示 。 


E F 


ee 


张 / 跌 柱 线 (U | i 
悄 阳 区 芥 牛 人 ei 和 外 (oO) 从 ea ea ag 
1 
0 T 
5| 84.21| 87.21| 30 


步骤 08 查看 显示 数据 标签 后 的 效果 。 此 时 ， 在 饼 图 的 每 个 扇 区 外 都 显示 了 相应 的 数据 标签 ， 表 示 每 个 分 店 的 销售 额 ， 如 下 图 所 示 。 


2018 年 1 月 各 分 店 的 销售 额 


78.65 B84.21 


8652 89.65 
"北京 市 分 店 “朝阳 区 分 店 “ 东城 区 分 店 " 西城 区 分 店 
崇文 区 分 店 "海淀 区 分 店 。 丰 台 区 分 店 。 宣 武 区 分 店 
“人 顺 关 县 分 店 = 半分 店 目 平 县 艺 店 “延庆 县 分 店 


步骤 09 打开 “设置 数据 标签 格式 ” 窗 格 。 单 击 “ 图 表 布局 ”组 中 的 “添加 图 表 元 素 ” 按 钮 ， 在 展开 的 列表 中 单 击 “数据 标签 > 其 他 数据 标签 选项 ”， 如 下 左 图 所 示 。 


聘 附 区 分 后 
东城 区 分 店 
西城 区 分 店 


E 
| 
j4 
3] 
六 | “80. 62[ 85:12 


_ | 单元 格 中 的 值 (B 
_ 系列 名 称 (9) 

v| 类 别名 称 (G) 

v| 值 (V) 

yj 百分比 (P) 

v| 显示 引导 线 (H) 
| 图 例 顺 标示 (LD) 


步骤 11 查看 设置 数据 标签 格式 后 的 效果 。 返 回 工作 表 ， 可 以 看 到 三 维 饼 图 的 数据 标签 类 别名 称 和 百分比 ， 如 下 图 所 示 。 
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"崇文 区 分 店 。 海 深 区 分 店 。 丰 台 区 分 店 。 宣 起 区 分 店 


a | 俩 关上 县 分 店 “密云 县 分 店 “向 平 县 分 店 “延庆 县 分 店 
OD 


步骤 12 ”删除 图 例 。 单 击 “ 图 表 布 局 ”组 中 的 “添加 图 表 元 素 ” 按 钮 ， 在 展开 的 列表 中 单 击 “ 图 例 > 无 ”选项 ， 如 下 图 所 示 。 


开始 ”插入 页 面市 局 公式。 数据 审阅 视图 


山 电 器 各 分 店 销售 表 


4 6 | 


步骤 13 ”移动 图 表 。 如 果 需 要 将 创建 好 的 图 表 移 动 到 新 工作 表 中 ， 则 可 在 “图 表 工 具 - 设 计 ” 选 项 卡 下 单 击 “ 位 置 ” 组 中 的 “移动 图 表 ” 按钮 ， 如 下 图 所 示 。 


三 要 做 什么 ... 


| 加 ESG。 |201e 和 月 Ge 


() 对 条 位 于 人): 各 分 店 销 千 志 
EN 


步骤 15 ”查看 移动 图 表 后 的 效果 。 此 时 ， 三 维 饼 图 被 移动 到 “2018 年 1 月 各 分 店 的 销售 额 ” 工 作 表 中 ， 如 右 图 所 示 。 移 动 完 图 表 后 ， 切 换 至 “开发 工具 ”选项 卡 ， 单 击 “ 代 码 ” 组 中 的 “停止 录制 ” 按 


钮 ， 停 止 宏 的 录制 。 


计 隔 电 冲 各 分 店 梢 合 现 .slsx 
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z2016 年 1 月 各 分 店 的 销售 阁 | 各 分 店 情 告 雪 


8.1.2 ”参考 安 代码 编写 创建 饼 图 过 程 


业 村 而 委 屋 . 束 汪 


辣 雷 区 半 仿 , 1 


录制 完 宏 之 后 ， 本 小 节 将 参考 录制 的 宏 代 码 编写 VBA 程 序 ， 实 现 更 加 快速 、 灵 活 地 分 析 各 分 店 月 销售 额 占 比 的 功能 。 具 体操 作 如 下 。 


步骤 01 


查看 录制 的 安 代 码 。 


继续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 在 “工程 ” 


窗口 中 双击 “模块 1 


选项 ， 在 打开 的 “模块 1 (代码 ) ”窗口 中 查看 “自动 创建 三 维 饼 图 " 


宏 的 代码 ， 如 下 图 所 


(通用 vv | 自动 创建 二 维 饰 图 


Sub 自动 创建 三 维 讲 图 0 
自动 创建 二 维 饼 图 宏 * 

Range(’A3:B14”). Select 

ActiveSsheet. Shapes. AddChart2(262, xl13DPie). Selec 

ActiveChart. SetSourceData Source: -Ranget2 各 站 计 稍 售 表 ， $A$3:$B$14") 

ActiveChart. ChartTitle. Select 

ActiveChart. SetElement (msoElementDataLabelOutsideEnd) 

ActiveChart. ApplyDataLabels 

ActiveChart. FullSeriesCollection(1).DataLabels. Select 

ActiveChart. SeriesCollection(l).DataLabels.Format. TextFrame2. TextRange. _ 
Characters. Text = “” 

ActiveChart. SeriesCollection(1).DataLabels.Format. TextFrame2. TextRange. _ 
InsertChartField msoChartFieldyYalue, “"", 1 

With ActiveChart. SeriesCollection(1).DataLabels.Format. TextFrame2. TextRange. _ 
Characters (1l, 5®).ParagraphFormat 
.TextDirection = msoTextDirectionLeftToRigeht 
.Alignment = msohlienCenter 

End With 

Selection. ShowCategoryName = True 

Selection. ShowPercentage = True 

Application.CommandBars ("Format Object”) .Visible = False 

ActiveChart. SetElement (msoElementLegendNone) 

ActiveChart. Location where:=xlLocationhsNewSheet，Name:=”2018 年 1 月 各 分 店 的 销售 额 '” 

和 Sub 


步骤 02 ”编写 “创建 饼 图 )” 过 程 代码 。 在 菜单 栏 中 单 击 “ 插 入 > 模块 ”命令 ， 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 选取 创建 饼 图 的 数据 区 域 。 


(通用 ) v| | 创建 饼 图 
sub 创建 讲 图 局 
in SelectRange hs Ranee 
MonthName As Strine 
rowiuml is lnteger 
rowiNum2 AAS lnteger 


SelectRhange appllication, InputBox _ 
(prompt :="i 请 输入 需 创建 三 维 饼 图 的 区 域 ， 
Type:=8) 呈 

IonthNane = Worksheets (“各 分 店 销售 表 ”) 

.Cells (2, SelectRange. Col unm .Yalue 

' 定义 变 恋 量 储 存 选 择 区 域 的 行 号 

rowNuml = ep 

rowNHum2 = SelectRanee. Row + SelectRangee. 
Lount -1 | 

coll = SelectRanee.Column 


步骤 03 ”判断 所 选区 域 是 否 符合 要 求 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 使 用 If 语句 和 For 循 环 语句 判断 用 户 选择 的 数据 区 域 是 否 是 一 列 ， 以 及 是 否 包含 非 数字 


”如果 所 选区 域 不 是 一 列 则 弹出 警告 

It SelectRange. Colunns.Count <> 1 Then 
MsgBox“ 选 职 的 区 域 只 能 为 一 列 ， 博 重新 选择 ! ” 
bolo er 

End I+ | 

" 判 肠 Pi 选区 域 中 定 天 人 富有 非 数 字 信 息 


For Each one In SelectRangee 
It Not Applicatlon.WorksheetFunct1on， 
IsNunmber (one. Yalue) Then 
MsgBox “所 选区 域 包 舍 非 数字 信息 ” 
Golo er 
End I 
Next one 


知识 链接 ”修改 图 表 的 数据 源 
在 录制 的 宏 代码 中 ， 图 表 的 数据 源 为 选择 的 固定 的 单元 格 区 域 ， 修 改 代 码 时 可 使 用 Application 对 象 的 InputBox 方 法 选取 图 表 数 据 源 对 应 的 单元 格 区 域 。 
重点 语法 与 代码 剖析 : Application.InputBox 方 法 的 用 法 


Application.InputBox 方 法 主要 用 于 显示 一 个 接收 用 户 输 入 的 对 话 框 。 返 回 此 对 话 框 中 输入 的 信息 。 其 语法 格式 为 : 表达 
式 .InputBox (Prompt，Titte，Default，Left，Top，HelpFile，HelpContextID ，Type) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Application 对 象 的 变量 。 下 面 分 别 介绍 各 参数 的 数据 类 型 及 意义 。 


@ ”Prompt 参 数 是 必需 参数 ， 数 据 类 型 为 Sting， 它 表示 要 在 对 话 框 中 显示 的 消息 ， 可 为 字符 束 、 数 字 、 日 期 或 逻辑 值 ， 在 显示 之 前 Excel 自 动 将 其 值 强 制 转换 为 String。 
@@ Title 参 数 是 可 选 参 数 ， 数 据 类 型 为 Variant， 它 表示 对 话 框 的 标题 ， 如 果 省 略 该 参数 ， 默 认 标 题 将 为 “输入 ”。 

@ 。 Default 参数 是 可 选 参数 ， 数 据 类 型 为 Variant， 它 用 于 指定 一 个 初始 值 ， 该 值 在 对 话 框 最 初 显示 时 出 现在 文本 框 中 ， 如 果 省 略 该 参数 ， 文 本 框 将 为 空 。 该 值 可 以 是 Range 对 象 。 
@@ Left 参 数 是 可 选 参 数 ， 数 据 类 型 为 Variant， 用 于 指定 对 话 框 相对 于 屏幕 左上 角 的 X 坐 标 〈 以 磅 为 单位 ) 。 

@@ Top 参数 是 可 选 参数 ， 数 据 类 型 为 Variant， 用 于 指定 对 话 框 相对 于 屏幕 左上 角 的 了 坐标 (以 磅 为 单位 ) 。 

@ HelpFile 参 数 是 可 选 参数 ， 数 据 类 型 为 Variant， 它 表示 此 对 话 框 使 用 的 帮助 文件 名 ， 如 果 存 在 HelpFile 和 HelpContextID 参 数 ， 对 话 框 中 将 出 现 一 个 帮助 按钮 。 

@ HelpContextID 是 可 选 参 数 ， 数 据 类 型 为 Variant， 表 示 HelpFile 中 帮助 主题 的 上 下 文 ID 号 。 


@@ Type 参 数 是 可 选 参数 ， 数 据 类 型 为 Variant， 用 于 指定 返回 的 数据 类 型 ， 如 果 省 略 该 参数 ， 对 话 框 将 返回 文本 。 这 是 该 方法 与 前 面 介 绍 的 InputBox0 肖 数 的 主要 区 别 之 一 。 下 表 列 出 了 可 以 在 Type 参 数 
中 传递 的 值 及 含义 。 可 以 为 下 列 值 之 一 或 其 中 几 个 值 的 和 。 例 如 ， 对 于 一 个 可 接受 文本 和 数字 的 输入 框 ， 将 Type 设 置 为 1+2。 


值 含义 
0 人 
< 了 了 了 二 于 一 < 
了 了 Bh 


”4 | 逻辑 值 CTue 或 Flse) 
”8 | 单元 格 引 用 ,作为 一 个 Range 对 象 


步骤 04 ”删除 工作 簿 中 月 份 相同 的 图 表 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 使 用 If 语句 与 InSstrRev0 函 数 相配 合 ， 判 断 图 表 工作 表 名 称 中 是 否 包含 选取 数据 区 域 的 月 
份 名 称 。 如 果 有 ， 则 删除 该 图 表 对 象 。 


" 对 所 有 图 表 进 行 循环 操作 
For Each one jk Charts 
如 采 图 表 的 名 字 包 舍 NonthNane 变 量 中 的 值 ， 
则 删除 该 图 表 
Ift InstrRev (one. Name, Monthllamne) 《> 0 Then 
Appllicatlion. Displayhlerts = False 


one. Delete 
hpplication.DisplayAlerts = True 
End I+t 
Next one 


步骤 05 编写 新 建 图 表 代 码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 主要 实现 了 新 建 图 表 、 设 置 图 表 类 型 、 生 成 数据 系列 、 重 命名 图 表 工 作 表 等 功能 。 


(通用 ) 


新建 图 表 
Charts. Add 
“设置 图 表 类 型 


ActiveChart, ChartType = xl3DP1ie 
设置 源 数 据 和 系列 产 生 的 列 
ActiveChart., SetSourceData Source:=SelectRange 
' 为 图 表 章 前 
Actiyechart。 Locatlon 
where:=xlLocationisNewSheet, 
Name:=”2018 年 ”+ NonthNane + “各 分 店 的 销售 额 ” 


重点 语法 与 代码 剖析 : Chart.Location 方 法 的 用 法 


新 建 图 表 对 象 时 ， 需 要 使 用 Chart 对 象 的 Location 方 法 来 指定 图 表 的 位 置 。 其 语法 格式 为 : Chatt.Location (where，name) 。 其 中 ，whetre 参 数 用 于 指定 图 表 插 入 的 位 置 。 图 表 播 入 的 位 置 有 两 种 : 作为 新 工 
作 表 插入 工作 簿 中 或 者 作为 图 像 对 象 插 入 工作 表 中 。 如 果 选择 第 1 种 位 置 ， 则 name 表 示 新 工作 表 的 名 称 ; 如 果 选 择 第 2 种 位 置 ， 则 name 表示 要 播 入 的 工作 表 名 称 。 


知识 链接 检测 指定 图 表 是 否 存在 


在 创建 指定 名 称 的 图 表 时 ， 首 先 需 要 检测 该 图 表 是 否 存 在 。 检 测 时 使 用 InStrRev0 函 数 获 取 指 定 字符 串 在 图 表 名 称 字符 串 中 的 位 置 ， 若 函数 返回 值 不 等 于 0， 则 该 图 表 存 在 。 


重点 语法 与 代码 剖析 : InStrRev() 函 数 的 用 法 


InStrRev0 函 数 用 于 返回 一 个 字符 串 在 另 一 个 字符 串 中 出 现 的 位 置 ， 从 字符 串 的 末尾 算 起 。 其 语法 格式 为 : InsttRev (strinecheck，stringmatch[，statt[，compate]]) 。 其 中 ，sttingcheck 是 必需 参数 ， 表 示 要 
执行 搜索 的 字符 串 表 达 式 。stringmatch 是 必需 参数 ， 表 示 要 搜索 的 字符 串 表 达 式 。statrt 是 可 选 和 参数 ， 是 一 个 数值 表达 式 ， 用 于 设置 每 次 搜索 的 开始 位 置 。 如 果 和 忽略， 则 使 用 一 1， 表 示 从 上 一 个 字符 位 置 开始 
搜索 。 如 果 start 包 含 Null， 则 产生 一 个 错误 。compare 是 可 选 参数 ， 为 数字 值 ， 指 出 在 判断 子 字符 串 时 所 使 用 的 比较 方法 。 如 果 和 忽略 ， 则 执行 二 进 制 比较 。 


InStrRev0 南 数 的 返回 值 如 下 : 当 stringcheck 的 长 度 为 0 时 ， 则 返回 0; 当 stringcheck 为 Null 时 ， 则 返回 Null;， 当 stringmatch 的 长 度 为 0 时 ， 则 返回 start;， 当 stringmatch 为 Null 时 ， 则 返回 Null;， 当 stringmatch 没 有 
找到 时 ， 则 返回 0; 当 sttingmatch 在 sttingcheck 中 找到 时 ， 则 返回 找到 匹配 字符 串 的 位 置 ; 当 start>Len (sttingmatch) 时 ， 则 返回 0。 


步骤 06 设置 图 表 的 格式 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 主要 设置 图 表 标题 、 显 示 数 据 标签 ， 并 设置 数据 标签 的 显示 格式 。 


(通用 ) 
设置 图 表 标 题 
ActiveChart. HasTitle = True 
ActiveChart. ChartTitle. Text = 
+ onthliane +“ 各 分 店 的 销售 a 
ee et 
(msoElementDataLabelOutSideEnd) 
ActiveChart. ApplyDataLabels 
' 设置 数据 标签 俭 的 格式 | 
eshte he 
DataLabels. Select 
' 显示 数据 标签 的 白 分 比值 
Selection. ShowFercentage = True 
" 显示 数据 标签 的 类 别名 称 
Selection. ShowCatesoryllame = True 
hctiveChart. SetElement (msoflementLegendNone) 


步骤 07 设置 数据 系列 的 分 类 标志 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 主要 使 用 循环 语句 显示 图 表 中 数据 系列 的 分 类 标志 ， 并 设置 图 表 的 显示 比例 为 100%。 


设置 系列 的 分 类 标志 | 
-: Worksheets (“各 分 店 销 售 表 ”) 


For Each one In hctiveChart. SerlesCollection 
one.XValues = .Rangek.CellsktrowNunrl，1)， 
.Cells (rowNum2, 1)) 
Next one 
End With 
ActiveW¥indow. Zoom = 100 
End Sub 


重点 语法 与 代码 剖析 : ActiveWindow.Zoom=100 


ActiveWindow.Zoom=100， 是 指 将 当前 窗口 的 显示 比例 强制 调整 到 100%， 在 该 语句 中 使 用 了 Window.Zoom 属 性 ， 该 属性 用 于 返回 或 设置 窗口 的 显示 尺寸 。 其 语法 格式 为 : 表达 式 .Zoom， 其 中 ，“ 表 达 
式 ” 是 一 个 代表 Window 对 象 的 变量 。 窗 口 的 尺寸 以 百分数 (不 带 百 分 号 ) 表示 ， 例 如 ，100 代 表 原 始 尺 寸 ，200 代 表 双 们 尺寸， 以 此 类 推 。 


注意 : 此 属性 仅 对 窗口 中 的 当前 工作 表 起 作用 。 也 可 将 此 属性 设置 为 True， 则 窗口 尺寸 将 自动 适应 当前 所 选区 域 。 


8.1.3 运行 代码 生成 指定 月 份 占 比分 析 饼 图 


参考 录制 的 宏 代 码 编写 完 VBA 程 序 代码 后 ， 本 小 节 接 着 运行 该 代码 ， 快 速 分 析 各 分 店 指定 月 份 的 月 销售 额 占 比 。 具 体操 作 如 下 。 


步骤 01 为 按钮 控件 指定 宏 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 在 工作 表 中 绘制 按钮 控件 ， 弹 出 “指定 宏 ” 对 话 框 。 在 “ 宏 名 ”列表 框 中 单 击 “ 创 建 饼 图 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 
定 ” 按 钮 。 


步骤 02 ”运行 宏 。 返 回 工 作 表 ， 将 按钮 控件 上 的 文本 修改 为 “创建 三 维 饼 图 ”， 然 后 激活 并 单 击 该 按钮 ， 即 可 运行 宏 ， 如 下 图 所 示 。 
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步骤 03 ”选择 创建 饼 图 的 数据 区 域 。 系 统 自动 弹出 “输入 ”对 话 框 ， 选 中 单元 格 区 域 C3: D14， 单 击 “ 确 定 ” 按 钮 ， 如 下 左 图 所 示 。 


a | 8B | tC | DD | EE | FE 


北京 市 分 店 4. 21 ,53 . 
朝阳 区 分 店 251 人 SR 1] 2 
东城 区 分 店 . 21 粳 ) ? X 93.23 
西城 区 分 店 .121 £0 ER 88. 21 
寺 文 区 介 店 | 57. 32 生生 和 90. 26 
海 注 区 分 店 .6 C$3:$D$14 76. 26 
| 丰台 区 分 上 店 ,52 ¢ 96. 26 

) | 宣武 区 分 店 DBI | | 本 | 05.062 
顺 关 有 呈 分 店 2 
密云 县 分 店 


L 


2018 年 庆 瑞 电器 各 分 店 销售 表 


单位 : z 
SR 一 WR 
4 凑 阳 区 公 店 . dd 


选取 的 区 域 只 能 为 一 列 ， 请 重新 选择 ! 
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步骤 05 ”重新 选取 数据 区 域 。 再 次 弹出 “输入 ”对 话 框 ， 选 中 单元 格 区 域 C2: C14， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


和 C D 上 


单位: 万 元 2018 年 庆 瑞 电器 各 分 店 销售 表 
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C D 上 F 


2018 年 庆 瑞 电器 各 分 店 销售 表 


”94.26| 89.12| 
”84.21| 88.21| 
90,23| 76. 26| 
顺 关 县 分 店 .23| Bam ae | 85.12| 94.23| 
| 密云 县 分 应 76. 15 


步骤 07 重新 选取 数据 区 域 。 再 次 弹出 “输入 ”对 话 框 ， 选 中 单元 格 区 域 C3: C14， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 
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步骤 08 ”查看 创建 的 三 维 饼 图 效果 。 此 时 可 看 到 工作 簿 中 插入 了 “2018 年 2 月 各 分 店 的 销售 额 ”工作 表 ， 且 表 中 包含 “2018 年 2 月 各 分 店 的 销售 额 ” 三 维 饼 图 ， 如 下 图 所 示 。 


2018 秆 2 月 阁 分 店 的 销 健 铅 


旺 工 呈 号 商 ， 肝 . 卫 9， 下 站 北 吝 写 计 定 ,本 名 时 
品 了 县 合 册 721 7 匡 隔 区 放下 ,6959, 95 


各 车 区 共 厨 ,5 21, 0 
贡 让 于 上 寻 厨 , 93,36, 有 


蕴 妾 王 巡 店 , 0.54, 喜 覃 区 号 应 ,本 吧 55 


2018 年 1 月 各 分 店 鲍 售 交 | 2018 年 2 月 各 分 店 的 销售 下 


8.2 ” 目 动 创建 各 分 店 销售 动态 分 析 图 


为 了 更 好 地 分 析 销 售 动态 并 预测 变化 趋势 ， 常 将 销售 数据 制作 成 折线 图 。 本 节 将 利用 VBA 程 序 制作 名 为 “销售 动态 分 析 图 ”的 折线 图 ， 该 程序 允许 用 户 根据 需要 选择 数据 区 域 ， 添 加 到 图 表 中 ， 从 而 方 
便 比较 不 同 分 店 的 销售 情况 。 


扫 码 看 视频 


he 


A 上 : 实例 文件 \ 第 8 章 \ 原 始 文 件 \ 庆 瑞 电 器 各 分 店 销 信 表 .xlsx 


: 实例 文件 \ 第 8 章 \ 最 终 文件 \ 销 售 动态 分 析 图 .xlsm 


本 小 节 将 编写 VBA 程 序 创建 数据 点 折线 图 ， 以 便 对 各 分 店 的 月 度 销售 动态 进行 分 析 。 具 体操 作 如 下 。 


查看 工作 表 中 的 内 容 。 打 开 原 始 文件 ， 可 看 到 在 工作 表 中 已 存在 如 右 图 所 示 的 数据 。 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 ， 插 入 “模块 1”。 


单位 : 万 元 2018 年 庆 瑞 电器 各 分 店 销售 表 


北京 市 分 店 
85.25| 86.55| 90.26 
6. 21 


| 86.21 
| 80.12| 83.25| 86.54 


87.32| 81.54| 85.25 

76.2 

86.52| 90.54| 86.54| 79.2| 85.23| 96.26 

| 79.98| 85.21| 88.21| 82.13| 86.62| 95.62 
78.23| 82.65| 86.54| 80.62| 85.12| 94.23 
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步骤 02 ”创建 “销售 动态 0” 过 程 。 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 创建 销售 动态 折线 图 的 第 1 部 分 代码 ， 用 于 选择 需要 的 数据 区 域 ， 并 判断 选择 的 数据 区 域 


是 否 包 含 标 题 行 。 


Sub 铀 售 动态 
"保存 当前 工作 表 和 用 户 选 择 的 区 域 
Dim Sht is Worksheet 
Set Sht = Worksheets (各 分 店 条 售 表 人 
Dim selecthirea 点 ES Range 
er: Set selectirea = Appllcatlion. InputBox 


(prompt:=” 请 选择 需要 创建 销售 动态 折线 图 的 区 域 "“，_ 


Type:=8) 
' 检查 用 户 所 选区 域 是 否 正确 
If selectArea,Row = 1 Then . z 
MsgBox“ 不 可 以 选择 标题 行 ， 请 重新 选择 
bolo er 
End It+t 


步骤 03 ”判断 是 否 为 需要 的 数据 区 域 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 创建 销售 动态 折线 图 的 第 2 部 分 代码 ， 用 于 判断 选取 的 数据 区 域 是 否 有 空 行 ， 以 及 是 否 选 
择 了 所 有 列 的 内 容 。 


re 刁 | 村 


Lim > a 
用 户 所 选区 域 不 可 包含 空 行 


If (selectArea. oo - selecthrea, 
Rows. Count — 1) 
NsgBox 兴 可 以 委 择 宇 行 ， 请 重新 选择 


GoTo er 


End It 

"用户 所 选区 域 必须 包间 所 有 列 

If selectArea. Colunns. Count <» 7 Then 
MsgBox “ 必 必 筑 注 笃 十 必 来 多 也 有 到 
Golo er 

End I 


步骤 04 调用 自 定义 过 程 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 7 段 ， 该 段 代码 主要 调用 自 定义 过 程 CreatTitles() 和 CreatChart()， 并 把 选择 的 数据 区 域 传递 到 自 定义 过 程 中 。 


mm > 


Tm ye 


' 为 用 尸 所 选区 域 添 加 X 值 
CreatTitles selectAhrea 
* 负 作 折 小 图 
CreatChart Sht, selectAhirea 
End Sub| 


步骤 05 自 定 义 CreatTitles() 过 程 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 来 为 用 户 所 选区 域 添加 横 坐 标 ， 其 中 使 用 Application.Union 方 法 合并 单元 格 区 域 。 


CreatT1tles 
"为 用 户 所 选区 域 添加 x 值 


Sub CreatTitles (selecthrea is Ranee) 
For Each one In selecthrea. ireas 
划 断 用 户 所 选区 域 是 天 已 全 有 标题 
It one.Row = 2 Then 
Exit Sub 
End I 
Next one 
' 如 果 不 包 人 请 则 添加 标题 区 域 
Set selectarea = hpplication. Union 
(Worksheets(” “各 外 店铺 祝 表 2 ") .Range( A2:G2”), 


selecthrea) 
End Sub 


知识 链接 ”添加 标题 行 至 数据 源 


由 于 前 面 的 代码 中 要 求 用 户 在 选取 数据 区 域 时 不 能 选取 标题 行 ， 因 此 ， 在 后 续 的 代码 中 使 用 Application 对 象 的 Union 方 法 将 用 户 选取 的 单元 格 区 域 和 标题 行 合并 为 一 个 区 域 ， 作 为 图 表 的 数据 源 ， 这 样 创 
建 的 图 表 更 加 清晰 ， 坐 标 轴 的 含义 更 加 明确 。 


重点 语法 与 代码 剖析 : Application.Union 方 法 的 用 法 


Application.Union 方 法 用 于 返回 两 个 或 多 个 区 域 的 合并 区 域 。 其 语法 格式 为 : 表达 式 .Union (Aregl1，Atrg2，…，Atg30) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Application 对 象 的 变量 ; Agl ，Arg2，…，Artrg30 参 
数 的 数据 类 型 为 Range， 每 个 参数 都 表示 一 个 Range 对 象 。 在 该 方法 中 ， 必 须 指定 至 少 两 个 Range 对 象 。Application.Union 方 法 的 返回 值 为 Range 类 型 。 


步骤 06 编写 创建 图 表 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 判断 工作 簿 中 是 否 存 在 “销售 动态 分 析 图 ”图 表 。 如 果 存 在 ， 则 删除 该 图 表 ， 然 后 使 用 
Chart.Add 方 法 新 建 图 表 。 


CreatChert 


' 创建 图 表 
sub CreatChart (Sht hs Worksheet, area As Ranee) 
' 检查 和 宵 售 动态 分 析 图 是 否 存在 
For Each one In Charts 
If one. Name =“ 销 售 动 态 分 析 图 ”Then 
Application.DisplayAilerts = False 
one,. Delete 
Application.DisplayAlerts = True 
End I+t 
Next one 
' 创建 新 图 表 
Dim chr hs Chart 
Set chr = Charts. Add 


步骤 07 设置 图 表格 式 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 于 设置 图 表 的 类 型 、 数 据 源 、 图 表 标题 、 坐 标 轴 标 题 等 。 


{通用 ) 和 ] CreatChart 


"设置 图 表格 式 
Vith chr 
.Location where:=xlLocationhsNHewSheet 
.ChartType = xlLineMarkers 
. SetSourceData Source:=area, PlotBy:=xlRovws 
.Name = “销售 动态 分 析 图 ” 
.HasTitle = True 
‘ChartTitle. Characters. Text = 
“2018 年 上 半年 各 分 店 销售 额 分 析 图 * 
. Axes (xlCategory, xlPrimary).HasTitle = False 
.Axes (xlVYalue, xlPrimary). HasTitle = True 
. xes (xlYalue, xlPrimar ), AxisTitle. 
Characters. Text = “销售 | 万 元 
chr. HasDataTable = False 
End With 
End Sub 


步骤 08 运行 宏 。 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 人 代码” 组 中 的 “ 宏 ” 按钮 ， 在 弹出 的 “ 宏 ” 对 话 框 中 单 击 “ 销 售 动态 ”选项 ， 单 击 “ 执 行 ” 按 钮 ， 如 下 图 所 示 。 


步骤 09 ”选择 创建 图 表 的 数据 区 域 。 系 统 开 始 执行 宏 ， 弹 出 “输入 ”对 话 框 ， 选 择 单 元 格 区 域 A1: G3， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 
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单位 : 万 元 2018 年 庆 瑞 电器 各 分 店 销售 表 
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步骤 10 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 不 可 以 选择 标题 行 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


C D E F 


2018 年 庆 瑞 电器 各 分 店 销售 表 


Microsoft Excel / = 
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步骤 11 重新 选择 数据 区 域 。 弹 出 “输入 ”对 话 框 ， 选 择 单元 格 区 域 A3: F3， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


Il n BB | ¢ Dp FE | 下 | 
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步骤 12 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 必须 选择 工作 表 的 所 有 列 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


L D H, 上 


2018 年 庆 瑞 电器 各 分 店 销售 表 
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.2018 年 庆 瑞 电器 各 分 店 销售 表 
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东城 区 分 店 
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步骤 14 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 不 可 以 选择 空 行 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


_ _D 了 上 EL 
Ai S| an.26| 92.21| 94.26| 89.12 
Microsoft Excel 人 
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步骤 16 显示 自动 创建 的 折线 图 效果 。 当 用 户 选 择 的 数据 区 域 正确 时 ， 系 统 自 动向 下 执行 代码 。 执 行 完 毕 后 ， 在 工作 簿 中 新 建 了 销售 动态 分 析 图 ， 如 右 图 所 示 。 


2018 年 上 半年 各 分 店 销售 额 分 析 图 


8.2.2 ”编写 代码 添加 数据 系列 


在 创建 数据 点 折线 图 后 ， 若 发 现 图 中 包含 的 数据 不 够 完整 ， 可 通过 编写 VBA 程 序 代码 来 添加 其 他 的 数据 。 具 体操 作 如 下 。 


步骤 01 定义 “添加 数据 0” 过 程 。 继 续 上 一 小 节 的 操作 ， 在 菜单 栏 中 单 击 “ 插 入 > 模块 ”命令 ,然后 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “添加 数据 0” 过 程 的 
第 1 部 分 代码 ， 主 要 用 于 选择 需要 添加 的 数据 区 域 。 


关于 电 吕 各 分 后 销 入 过 xsx - 模 决 2 (到 ET 
(通用 ) ~|| 逐 数据 ~ 
-在 已 生成 的 图 表 中 添加 数据 
Sub 添加 数 
" 保 答 阴户 革 选区 域 和 已 生成 的 图 表 


On Rrror Golo mse 
Dinmn area 点 5 Ranee 


Er: Set area = ppv Cal on npureo 


人 sp 请 选择 需要 添加 数据 的 区 区 域 ” 


检查 用 导 记 过 区 十 百 全 由 求 

It area.Row = 1 
MsgBox ?不 襄 以 选择 标题 生 行 ， 请 重新 选择 
Cole er 

End I+t 


步骤 02 判断 所 选 数 据 区 域 是 否 符合 要 求 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “添加 数据 0” 过 程 的 第 2 部 分 代码 ， 其 中 重复 使 用 的 代码 可 以 自 定 义 为 过 程 或 函 
数 ， 以 减少 代码 的 长 度 。 


(二 用) ~ | | 漆 加 数据 v| 


"用户 所 选区 域 不 可 包含 空 行 
Ift (area.Row + me 
Rows.Count —- 1 


MsegBox 可 旋 掠 二 行 王 请 重新 选择 * 


olo er 


End If . 

用户 所 选区 域 必须 是 训 所 得 2 

It area. Columns. Count <> 7 
JsgBoxz “必须 选择 工作 表 的 所 有 
Golo er 

End If 


步骤 03 ”为 图 表 添 加 数据 系列 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 主 要 使 用 SeriesCollection.Add 方 法 向 SeriesCollection 集 合 添 加 一 个 新 的 数据 系列 。 


"为 图 表 添加 数据 
D1I myChart hs Chart 
Set myChart = CEarts(e 错 售 动态 分 析 图 ”) 


nyChart. SerlesCollectlion. Add _ 
Source:=area, serleslabels:=True 
Exit Sub | 
` 提 桓 用 尸 还 未 创建 图 表 _ 
~ Et “ 汪 示 创建 图 表 ， 请 先 创 建 图 表 !“ 
nd Su 


步骤 04 运行 “添加 数据 0” 过 程 。 返 回 工 作 表 中 ， 按 Alt+F8 组 合 键 ， 打 开 “ 宏 ”对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “添加 数据 ”选项 ， 单 击 “ 执 行 ”按钮 ， 如 下 图 所 示 。 


知识 链接 “添加 数据 系列 


添加 数据 系列 是 指 在 图 表 已 有 数据 系列 的 基础 上 ， 再 添加 其 他 需要 的 数据 系列 ， 而 且 对 已 有 数据 系列 不 进行 删除 或 修改 。 它 必须 在 已 有 图 表 的 基础 上 添加 ， 若 没有 图 表 ， 则 添加 不 成 功 。 在 Excel VBA 中 
可 使 用 SetiesCollection 对 象 的 Add 方 法 进行 添加 。 


重点 语法 与 代码 剖析 : SeriesCollection.Add 方 法 的 用 法 


SetiesCollection.Add 方 法 用 于 向 SetiesCollection 集 合 添加 一 个 或 多 个 新 的 数据 系列 。 该 方法 的 语法 格式 为 : 表达 式 .Add (Soutce，Rowcol，SetiesLabels，CategofyLabels，Replace) 。 其 中 ，“ 表 达 式 ”是 一 
个 代表 SetiesCollection 对 象 的 变量 。 下 面 详细 介绍 该 方法 中 各 参数 的 具体 含义 。 


”Source 是 必需 参数 ， 数 据 类 型 为 Variant， 指 作为 Range 对 象 的 新 数据 。 
@@。 Rowcol 是 可 选 参 数 ， 数 据 类 型 为 XIRowCol， 用 于 指定 新 值 是 位 于 指定 区 域 的 行 中 还 是 列 中 。 


@@ SericsLabels 是 可 选 参数 ， 数 据 类 型 为 Variant。 它 表示 如 果 第 1 行 或 第 1 列 包含 数据 系列 的 名 称 ， 则 为 True; 如 果 第 1 行 或 第 1 列 包 含 数据 系列 的 第 1 个 数据 点 ， 则 为 False。 如 果 省 略 此 参数 ，Excel 将 尝试 
根据 第 1 行 或 第 1 列 中 的 内 容 确定 数据 系列 名 称 的 位 置 。 


@@。 CategoryLabels 是 可 选 参 数 ， 数 据 类 型 为 Variant。 它 表示 如 果 第 1 行 或 第 1 列 包 含 分 类 标签 的 名 称 ， 则 为 True; 如 果 第 1 行 或 第 1 列 包含 数据 系列 的 第 1 个 数据 点 ， 则 为 False。 如 果 省 略 此 参数 ，Excel 将 党 
试 根据 第 1 行 或 第 1 列 中 的 内 容 确定 分 类 标签 的 位 置 。 


@@。 ”Replace 是 可 选 参数 ， 数 据 类 型 为 Vatiant。 它 表示 如 果 CategotyLabels 为 True 且 Replace 为 True， 那 么 指定 的 分 类 将 替换 当前 数据 系列 中 存在 的 分 类 ; 如 果 Replace 为 False， 现 有 的 分 类 将 保留 。 其 默认 值 
为 False。 


SetiesCollection.Add 方 法 的 返回 值 是 一 个 代表 新 数据 系列 的 Seties 对 象 。 


步骤 05 ”选择 需要 的 数据 区 域 。 弹 出 “输入 ”对 话 框 ， 在 工作 表 中 选择 要 添加 的 单元 格 区 域 A8: G8， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 
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步骤 06 ”查看 添加 数据 系列 后 的 效果 。 系 统 自动 执行 添加 数据 系列 的 代码 ， 执 行 完毕 后 ， 得 到 如 下 图 所 示 的 效果 。 


2018 年 上 半年 各 分 店铺 售 额 分 析 图 


Li 


1 月 2E 


销 开 动态 分 析 图 | 备 分 后 销售 雪 


8.3 图表 类 型 的 目 动 转换 


不 同类 型 的 图 表 适 用 于 不 同 的 分 析 需 求 。 如 果 要 比较 各 分 店 销售 额 的 高 低 ， 最 好 使 用 柱 形 图 ， 如 篮 状 柱 形 图 、 三 维 圆柱 图 ; 如 果 要 分 析 各 分 店 销售 额 的 变化 趋势 ， 则 最 好 使 用 折线 图 。 本 节 将 使 用 VBA 
程序 对 用 户 选 取 的 数据 区 域 制作 默认 图 表 ， 并 且 提 供 在 簇 状 柱 形 图 、 三 维 圆 柱 图 和 数据 点 折线 图 之 间 转 换 的 功能 按钮 ， 方 便 用 户 快速 转换 图 表 类 型 。 


要 码 看 视频 


he 


一 一 F: 实例 文件 \ 第 8 章 \ 原 始 文件 \ 庆 瑞 电器 各 分 店 销售 表 .xlsx 


在 Excel 中 ， 默 认 的 图 表 类 型 为 簇 状 柱 形 图 。 本 小 节 将 介绍 如 何 编写 创 建 簇 状 柱 形 图 的 VBA 程 序 代码 ， 具 体操 作 如 下 。 


| 查看 工作 表 中 的 内 容 。 打 开 原 始 文件 ， 可 看 到 人 在 工作 表 中 已 存在 如 下 左 图 所 示 的 数据 。 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 ， 插 入 “模块 1”。 


CcC | DD E F 
年 庆 瑞 电器 各 分 店 销售 表 
4 月 


2 月 

a | 1. 
5. 25| 86,. 355 90, 2 
36,. 21 | = le 


cad 
国 
nN 


a 


海 注 区 分 店 
丰台 区 分 店 | 86. 52| 
宣武 区 分 店 
顺义 县 分 店 82. 65 
| 密会 县 分 店 | 76.15| “80 34 
昌平 县 分 后 
80. 2 


4 | 延庆 号 分 后 ol 


步骤 02 创建 默认 图 表 。 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “创建 默认 图 表 (0” 过 程 的 前 半 部 分 代码 ， 其 中 定义 变量 MyRange、rowNum、<col1、col2 为 全 
局 变量 ， 然 后 获取 用 户 选择 的 数据 区 域 ， 并 检测 该 数据 区 域 是 否 符合 要 求 。 


EET De 
' 定义 变量 保存 用 尸 选 职 的 数据 区 域 


Dim MyRange As Range 
Dim rowNum his Integer 
Dim coll is Integer 
Dim col2 hs Integer 
sub 创建 默认 图 表 忆 
On Error Golo msg 
er: Set NyRange = Applicatlon. InputBox 
(pronpt:=" 请 选择 需要 创建 图 表 的 数据 区 域 "，_ 


.Type:=8) 
"判断 十 天 选取 多 个 不 连续 区 域 
li+ NMyRange. Areas.Count > 1 Then z | 
本 “选取 的 数据 区 域 为 多 个 不 连续 区 域 ， 请 重新 选择 !“ 
oTo er 
End I+ 


步骤 03 ”输入 “创建 默认 图 表 () ”过程 的 后 半 部 分 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 主 要 用 于 调用 “ 艇 状 柱 形 图 9” 过 程 ， 以 及 设置 图 表 的 数据 系列 名 称 。 


有， -| | 创建 业 认 国 表 “上 


获取 用 户 选 取 的 数据 区 域 的 行 亏 与 列 亏 
TOWNUm = Nyhanee. ROW 
Ce NvyRanee. Colunn 
= NyRange. Column + NyRange.Columns.Count — 1 
5 畏 角 创建 各 中 时 形 图 的 过 程 
旋 状 柱 形 图 


With Worksheets (“各 分 店 销售 表 ) 
For Each one In ActiveChart. SeriesCollection 
one. XValues = .Ranee(Cells (2, col1), 
Cells (2, col2)) 
one. Jame = Cells (rowNunm, 1) 
rowNum = rowhNum + 1 
Next one 
End With 


nsg: 
End Sub| 


步骤 04 创建 “ 簇 状 柱 形 图 0)” 过程 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 删除 “图 表 ” 工 作 表 中 的 图 表 ， 并 创建 新 图 表 。 


A 


For Each one Ls i Chartobjects 
one. Delete 

Next one 

Charts. Add 


狭 取 用 户 选 职 的 数据 区 域 的 行乞 


rowNum = Nykanee. Row 


重点 语法 与 代码 剖析 : Series.XValues 属 性 的 用 法 


Series.XValues 属 性 用 于 返回 或 设置 图 表 数 据 系 列 中 x 值 的 数组 。XValues 属 性 可 设置 为 工作 表 区 域 或 数值 数组 ,但 不 能 为 二 者 的 组 合 。 其 数据 类 型 为 Variant， 可 读 写 ， 语 法 格式 为 : 表达 式 .XValues。 其 
中 ，“ 表 达 式 ”是 一 个 代表 Seties 对 象 的 变量 。 需 要 注意 的 是 ， 对 于 数据 透视 图 ， 该 属性 为 只 读 。 


步骤 05 设置 图 表 类 型 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 于 将 图 表 设 置 为 篮 状 柱 形 图 ， 并 更 改 图 表 标 题 ， 然 后 将 图 表 对 象 移动 到 “图 表 ” 工 作 表 中 。 


| 衣 有 ) ~|| 让 


设置 图 表 类 型 为 签 状 柱 形 图 、 
ActiveChart. ChartType = xlColumnClustered 
MctiveChart. SetSourceData Source:=NyRange, 
PlotBy:=xlRows 


ActiveCchart,. HasTitle = True 

ictiveChart. ChartTitle.Characters. Text = 
“销售 额 柱 形 图 ” 

ActlveChart, Locatlon vhere:=xlLocationisOb ject, 
Name := ’ 


步骤 06 设置 图 表 的 坐标 轴 标 题 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 使 用 With...End With 语 句 设置 图 表 的 横 坐 标 轴 标 题 为 “月 份 ”、 纵 坐标 轴 标 题 为 “月 销售 额 
(万 )“。 


|( 通 用 ) ~ | | 簇 状 柱 形 图 
" 讽 着 图表 的 尝 标 轴 标 题 
With ActiveChart 
.Axes (xlCateesory, xlPrimary). HasTitle = True 
. Axes (xlCategory, xlPrimary). AxlsT1itle. 


Characters. Text = “月 份 ” 
. Bxes (xlYalue, xlPrimary). HasTitle = True 
, Bxes C(x] Yalue, xlPrinma ). AxisTitle. 
Characters. Text = 月 销售 售 额 《万 》” 
End With 
End Sub 


8.3.2 ”编号 代 码 创 建 三 维 圆柱 图 


相 较 于 复 状 柱 形 图 来 说 ， 三 维 圆柱 图 更 具有 立体 感 和 空间 感 。 本 小 节 将 介绍 如 何 编写 创建 三 维 圆柱 图 的 VBA 程 序 代码 ， 具 体操 作 如 下 。 


步骤 01 创建 “三 维 圆柱 图 )” 过 程 。 继 续 上 一 小 节 的 操作 ， 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 与 创建 篮 状 柱 形 图 的 代码 相似 ， 区 别 在 于 图 表 的 类 型 不 同 。 


| (通用 ) 


Sub 二 维 加 柱 图 0O_ 
' 对 所 有 图 表 进 行 循环 操作 
Sheets CC 国 表 ) Activate , 
For Each one In hctiveSheet.ChartObjects 
one. Delete 
Next one 
Charts. Add 
rowlNun = NyRange. Row 
| 设置 图 表 类 型 为 二 维 圆 枉 图 
ActiveChart. ChartType = xlCylinderCol 
ActiveChart. SetSourceData Source:=NyRanee, 
PlotBy:=xlRows 
ActiveChart. HasTitle = True 
hectare bert artitle. Characters. Text = 
“销售 额 二 稚 圆 杜 图 “ 
hctiveChart. Location where:=xlLocatlionisOb]ject, 


NHame :=" 图 表 ” 


步骤 02 设置 三 维 圆 柱 图 的 坐标 轴 标 题 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 与 设置 艇 状 柱 形 图 的 坐标 轴 标 题 的 代码 相同 。 


(通用 ) 


' 侵 卫 坐标 机 标题 
With ActiveChart 
,Axes (xlCategory, xlPrimary).HasTitle = True 
. Axes (xlCategory, xlPrimary). AxXisTitle. 
Characters. Text = “月 份 ” 
. Axes (xlYalue, es HasTitle = True 
. Axes (x]VYalue, PTD Ax1isT1itl]e. 


Characters. Text 售 额 《万 》” 
End With 
End Sub| 


8.3.3 ”编号 代码 创建 数据 点 折线 图 


数据 点 折线 图 常用 于 观察 数据 的 变化 趋势 。 本 小 节 将 介绍 如 何 编写 创建 数据 点 折线 图 的 VBA 程 序 代码 ， 具 体操 作 如 下 。 


步骤 01 创建 “折线 图 )” 过 程 。 继 续 上 一 小 节 的 操作 ， 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “折线 图 0)” 过 程 的 前 半 部 分 代码 ， 它 与 创建 篮 状 柱 形 图 的 代码 相似 ， 
区 别 在 于 图 表 的 类 型 不 同 。 


天 


ub 折 和 | 

' 对 所 有 图 表 进 行 循 环 操作 

Sheets (人 图表” 人 

For Each one In ActIveSheet.Chartob jectSs 
one. Delete 

Next one 


Charts,. Add 
ovwlun = Nykange. Kow 

?入 葵 由 夫 类 腊 汶 对 于 六 

ActiveChart. ChartType = xlLinellarkers 

ActiveChart,. SetSourceData Source:=MyRange, _ 
PlotBy:=xlRows 

ActiveCchart. HasTitle = True 

ActiveChart. ChartT1itle. Characters. Text = 


“ 稍 售 额 折线 区 


he Location where:=xlLocationhsOQbject, _ 


步骤 02 设置 折线 图 的 坐标 轴 标 题 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “折线 图 ”过 程 的 后 半 部 分 代码 ， 它 与 设置 簇 状 柱 形 图 的 坐标 轴 标 题 的 代码 完全 相同 。 


" 巩 孟 坐标 宙 标 题 
With ActiveChart 
. xes (xlCategory, xlPrimary).HasTitle = True 
. xes (xlCategory, xlPrimary). AxisTitle. 
Characters. Text = “月 份 ” 


.Axes (xlVYalue, xlPrimary).HasTitle = True 
. Axes (xlYalue, xlPrineny tl _ 


Characters. Text = “月 宵 售 和 额 (万 》"” 
End With 


End Sub 


8.3.4 ”运行 代码 转换 图 表 类 型 


完成 VBA 程 序 代 码 的 编写 后 ， 本 小 节 通 过 创建 按钮 控件 ， 让 用 户 可 在 各 图 表 类 型 之 间 切 换 。 具 体操 作 如 下 。 


步骤 01 ”选择 按钮 控件 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 新 建 一 个 名 为 “图 表 ” 的 工作 表 。 在 “开发 工具 ” 卡 下 单 击 “ 控 件 ”组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控 
件 ) ”图 标 ， 如 下 图 所 示 。 


加 ”Excel COM 加 载 项 
载 项 ”加 载 贡 


加 载 项 


] 口 国 回 国 加 
人 OA 


步骤 02 ”绘制 按钮 控件 并 指定 安 。 在 工作 表 中 的 适当 位 置 绘制 按钮 控件 ， 绘 制 完成 后 释放 鼠标 ， 弹 出 “指定 安 ” 对 话 框 。 在 “ 宏 名 ”列表 框 中 单 击 “ 创 建 默 认 图 表 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 
定 ”按钮 。 


sl 


入 
引 | 
D 


步骤 03 ”绘制 其 他 按钮 控件 。 返 回 工 作 表 ， 将 按钮 上 的 文本 修改 为 需要 的 文本 ， 然 后 用 相同 的 方法 绘制 其 他 的 按钮 控件 ， 并 为 它们 指定 相应 的 宏 ， 得 到 如 下 图 所 示 的 效果 。 


步骤 04 ”选择 创建 图 表 的 数据 区 域 。 单 击 “ 创 建 默认 图 表 ” 按 钮 ， 


|= 


滨 福 EE I : 

海 演 芭 分 店 
是 分店 | 
他 天 县 分 店 


DO DA 


区 分 应 z 


89. 65 
86. 52| 
79. 98 


EA 


C 


D 


E 


创建 默认 图 表 


族 状 柱 形 图 


三 维 圆柱 图 


数据 点 折线 图 


系统 会 自动 弹出 “输入 ”对 话 框 ， 在 “名 分 店 销售 表 ” 工 作 表 中 选择 单元 格 区 域 A3: C4 和 和 E3: G4， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 


F 


2018 年 庆 瑞 电器 各 分 店 销售 表 


了 


79. 94 


10. 26 


6. 和 89. < 


4 | 延庆 县 分 店 esl 80.25| 1 21| 86.23| —79-23[ 8726 


| 各 分 店 销售 表 


步骤 05 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 选取 的 数据 区 域 为 多 个 不 连续 区 域 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


Microsoft Excel 


店 峭 售 表 | 图 表 | 


步骤 06 重新 选择 数据 区 域 。 再 次 弹出 “输入 ”对 话 框 ， 选 择 单 元 格 区 域 A3: G4， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


分 店 销售 表 


加, 23 
, _ 23 
? ~ :B. 21 


等 的 数据 区 域 山 : < 
| B。 2 


"| 各 分 店 畏 售 表 !$A$3:$G$4 IB. 2 

后, 62 
11 [ss 取消 了 区. 23 
12 : "8. 23 
13 | 昌平 县 分 店 73.21| 79 54 7026| 76.12 89.26 
14 | 延庆 县 分 店 


1s 


| 各 分 店 销售 表 | 图 表 | 


步骤 07 ”查看 创建 默认 图 表 后 的 效果 。 系 统 会 自动 执行 程序 代码 ， 执 行 完毕 后 ， 在 “图 表 ” 工 作 表 中 会 显示 根据 选 定数 据 区 域 创建 的 默认 图 表 ， 如 下 图 所 示 。 


创建 默认 图 表 


旋 状 柱 形 图 


目 北 京 市 站 店 9 


月 硝 售 攻 《万 ) 


a 朝阳 区 分 店 | 。 ”三维 圆柱 图 


数据 点 折线 图 


J 


上 北京 市 分 店 人 
加 朝阳 区 分 庄 


月 稍 售 铬 (万 ) 


数据 点 折线 图 


步骤 09 ”查看 图 表 类 型 转换 后 的 效果 。 系 统 自动 执行 “三 维 圆 柱 图 ” 宏 ， 执 行 完毕 后 ， 在 工作 表 中 将 删除 原来 的 图 表 ， 并 创建 三 维 圆 柱 图 ， 如 下 图 所 示 。 


| | 


| 了 NE 


| 


北京 市 分 店 下 


三 维 圆 柱 区 
四 朝阳 区 分 店 三 维 圆柱 图 


rr 
Rs 二 一 
”数据 点 折线 

月 份 


H+| 


全 建 黑 认 图 表 


了 右 关 柱 形 
国 北 京 市 分 店 Pages 
和 朝阳 区 分 店 三 维 加 性 图 


数据 点 折 续 图 


| 
2 
3 | 
4 | 
9 | 
:| 
3 | 
9 | 
| 
12 


| re 


步骤 11 查看 图 表 类 型 转换 后 的 效果 。 系 统 自动 执行 “折线 图 ” 宏 ， 执行 完毕 后 ， 在 工作 表 中 得 到 如 下 图 所 示 的 图 表 。 


了 了 员 和 H 国 


EC 疏 5o 二 


一 一 北京 市 分 店 9 


三 维 圆 柱 图 
一 各 一 朝阳 区 分 店 


数据 点 折线 图 


| 各 分 店 销售 表 | 图 下 | 四 


创建 黑 认 图表 | 


访 状 柱 形 加 


一 一 北京 市 分 店 


二 维 图 柱 图 
= 器 一 朝阳 区 分 店 


月 硝 售 先 (万 ) 


数据 点 折线 图 


步骤 13 ”查看 簇 状 柱 形 图 的 效果 。 系 统 自动 执行 “ 簇 状 柱 形 图 ” 宏 ， 执 行 完毕 后 ，“ 图 表 ” 工 作 表 中 的 图 表 将 会 转换 为 如 右 图 所 示 的 效果 。 


+ 
一 而 建 默认 图 表 
Fs 


了 形状 柱 形 图 


9 朝阳 区 分 店 | 一 一 一 一 一 一 


数据 点 折 辣 图 


第 9 草 ”出 仙 情 况 管理 


公司 在 管理 出 货 情况 时 ， 常 常 需 要 查看 某 个 日 期 、 某 个 购 货 单 位 或 某 种 产品 的 出 货 记 录 。 若 采用 筛选 、 数 据 汇总 功能 实现 会 比较 烦琐 ， 而 使 用 数据 透视 表 则 会 比较 容易 。 本 章 将 介绍 如 何 使 用 VBA 程 序 
快速 生成 数据 透视 表 和 数据 透视 图 。 


静态 数据 透视 表 是 指 修 改 源 数据 时 ， 数 据 透 视 表 中 的 数据 保持 不 变 。 用 户 需 切换 至 “数据 透视 表 工 具 - 分 析 ” 选 项 卡 ， 单 击 “ 数 据 ” 组 中 的 “刷新 ”按钮 ， 数 据 透 视 表 才 会 根据 修改 后 的 数据 做 相应 的 更 
改 。 本 节 将 以 “出 货 表 .xlsx” 为 例 ， 介 绍 如 何 使 用 VBA 程 序 快速 生成 静态 数据 透视 表 。 


扫 码 看 视频 


~ 


一 一 2 EF: 实例 文件 \ 第 9 章 \ 原 始 文件 \ 出 货 表 .xlsx 


实例 文件 \ 第 9 章 \ 最 终 文件 \ 出 货 表 的 静态 数据 透视 表 .xlsm 


要 生成 出 货 表 的 静态 数据 透视 表 ， 首 先 需 要 创建 数据 透视 表 ， 然 后 添加 相应 的 字段 。 本 小 节 将 介绍 如 何 编写 创建 静态 数据 透视 表 的 过 程 代码 ， 具 体操 作 如 下 。 


查看 “产品 信息 ”工作 表 的 数据 。 打 开 原 始 文件 ， 单 击 “ 产 品 信息 ”标签 ， 切 换 至 “产品 信息 ”工作 表 ， 可 看 到 在 该 工作 表 中 记录 了 每 个 产品 代码 对 应 的 产品 名 称 及 其 单价 ， 如 下 图 所 示 。 


产品 信息 
产品 代码 ” 单价 (元) 
P20070123 2000 
C2UVTOl1 S33 4000 
C20070142 9800 
Ll20070156 1500 
PadV VOLOU 0000 
S20070148 1800 


DO 


2 


”出 货 表 产品 信息 Sheet3 


步骤 02 进入 VBE 编 程 环境 。 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 Visual Basic 按 钮 ， 如 下 图 所 示 。 


并 始 揪 人 由 加 布局 公式 


全 如 四 3 录制 宏 雪 过 


Visual Basic “” 宕 | 加 Excel COM 加 载 项 


盐 顶 “加 载 顶 
加 载 . 


B 
产品 信 | 
产品 名 各 产品 代码 ” 单价 (元 》 
P20070123 2D000 
C20070133 4500 


步骤 03 ”插入 模块 。 进 入 VBE 编 程 环境 后 ， 右 击 “ 工 程 ” 窗 口中 的 “VBAProject (出 货 表 .xlsx) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “插入 > 模块 ”命令 ， 如 下 左 图 所 示 。 


国 国 | 入 


加 -总 Solver (SOLYER. ILAR) 
由 站 VBAProject (FUNCEES ILAR) 
= VBAProject (故去 IE 
日- Microsoft FExce] 对 国 ”查看 代码 (O) 
- 转 ] Shestl (出 货 表 ) 国 。 音 寺 对 登 ([B) 
区 Sheet2 【产品 信和 
Sheet3 (Sheet3) 


ThRasWorkbaook 


步骤 04 ”编写 “创建 静态 数据 透视 表 ()” 过 程 的 第 1 部 分 代码 。 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 检查 工作 簿 中 是 否 存 在 “出 货 统计 表 ”。 如 果 存 在 ， 
则 弹出 对 话 框 提示 删除 ， 若 不 存在 ， 则 新 建 此 工作 表 。 


人 和 i nt 下 
稍 出 贷 统 针 表 ” 工 作 末 


2 肝 是 理 忆 有 In Yo ee, 。 
It+t one. name = 质 统 


计 表 ” 
NsgBox “请 先 删除 中 个 2 


Exit Sub 
End I+ 


Next one 

" 新建 工作 表 并 为 其 重 侣 名 
Dinmn Sht hs Yorksheet 

Set Sht = Worksheets. Add 
Sht. name =“ 出 贷 统 计 表 ” 


步骤 05 编写 创建 数据 透视 表 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 使 用 Workbook.PivotCaches 对 象 的 Create 方 法 创建 数据 透视 表 。 


"创建 数据 带 视 表 
With sht 
ictiveWorkbook. PlvyotCaches. Create _ 
(SourceType: =xlDatabase, SourceData:= 


“出 货 表 !R2C1:R19C6*，Version:= 
x]PivotTablevTersionl?). CreatePivotTable _ 
tabledestination:=Cells(1, 1), | 
tablename:=“ 出 货 统 计 表 ”， defaultversion:= 有 
xXlPivotTableYersionl2 


知识 链接 “创建 数据 透视 表 的 第 1 种 方法 


在 Excel VBA 中 创建 数据 透视 表 时 ， 常 使 用 PivotCaches 对 象 的 Create 方 法 创建 数据 透视 表 的 内 存 区 域 ， 并 指定 数据 透视 表 的 起 始 位置 ， 然 后 使 用 CteatePivotTable 方 法 指定 表 名 。 


9.1.2 ”编写 代码 调整 字段 位 置 


接 下 来 还 需 编写 调整 数据 透视 表 字 段位 置 的 过 程 代码 ， 才 能 得 到 满足 需求 的 静态 数据 透视 表 。 有 具体 操作 如 下 。 


步骤 01 ”设置 数据 透视 表 的 页 字段 和 列 字段 。 继 续 上 一 小 节 的 操作 ， 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 使 用 PivotFields 对 象 设置 页 字段 和 列 字段 。 


' 添加 数据 透视 表 的 字段 
With .PivotTables (“出 货 统 计 表 ”) 
"设置 页 字段 
With .PiyvotFields(“ 购 货 日 期 ) 

.Orientation = xlPageField 


.Position = 1 

End Yith 

" 设 芋 列 字段 四 

With .PivotFields * 购 货 单 位 
.Orientation = xlColumnField 
.Position = 1 

End With 


知识 链接 ”设置 页 字段 和 列 字 段 
创建 数据 透视 表 并 调整 数据 透视 表 字 段位 置 时 使 用 的 对 象 为 PivotCaches、PivotTable、PivotField。 
重点 语法 与 代码 剖析 : PivotCaches、PivotTable 和 PivotField 对 象 的 用 法 


PivotCaches 对 象 代表 工作 簿 中 数据 透视 表 的 内 存 缓 存 集 合 ， 且 每 个 缓存 都 由 一 个 PivotCaches 对 象 代表 。 其 语法 格式 为 : 表达 式 .PivotCaches。 其 中 ，“ 表 达 式 ”是 一 个 代表 Wotkbook 对 象 的 变量 。 
Wotkbook.PivotCaches 方 法 返回 的 值 是 一 个 PivotCaches 人 集合， 该 集合 表示 指定 工作 簿 中 的 所 有 数据 透视 表 缓 存 ， 且 为 只 读 型 。 


PivotTable 对 象 代 表 工 作 表 中 的 数据 透视 表 ， 是 PivotTables 集 合 的 成 员 。PivotTables 集 合 包含 某 一 张 工 作 表 中 的 所 有 PivotTable 对 象 。Wotksheet.PivotTables 方 法 的 语法 格式 为 : 表达 
式 .PivotTables (Index) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Wotksheet 对 象 的 变量 ; Index 是 可 选 参数 ， 用 于 指定 报表 的 名 称 或 编号 。 该 方法 返回 的 值 是 一 个 对 象 ， 该 对 象 表示 工作 表 中 的 单个 数据 透视 表 
(PivotTable 对 象 ) 或 所 有 数据 透视 表 的 集合 (PivotTables 对 象 ) ， 且 为 只 读 型 。 


PivotField 对 象 代表 数据 透视 表 中 的 一 个 字段 。 它 常 与 系统 常量 xlRowField、 忆 ColumnField、 忆 PageField、 刀 DataField 相 结合 ， 设 置 数据 透视 表 的 行 字 段 、 列 字段 、 页 字段 和 数据 字段 。 如 果 数 据 透 视 表 的 同 
一 位 置 有 多 个 字段 ， 则 可 以 通过 为 Position 属 性 赋值 对 这 些 字 段 指 定 顺 序 。 除 此 之 外 ， 用 户 还 可 以 使 用 PivotField 对 象 的 ColumnFields、DataFields、HiddenFields、PageFields、RowFields、 VisibleFields 属 性 来 设 
置 数据 透视 表 的 字段 。 


步骤 02 ”设置 数据 透视 表 的 行 字段 和 数据 字段 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 设置 数据 透视 表 的 行 字 段 ， 以 及 将 需要 的 数据 字段 添加 到 数据 透视 表 中 。 


' 设置 行 字段 

With .PivotFields (“产品 代码 “) 
.Orientation = xlRowField 
. Position = 1 


.ddDataField Activesheet. _ 
PivotTables (“出 贷 统 计 表 ”)。 _ 
PivyotFields(t 货品 总 额 )，-_ 

“ 求 和 项 :货品 总 额 ”，XlLSun 
End With 
End With 


步骤 03 更 改行 标签 和 列 标签 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 修改 数据 透视 表 的 行 标签 和 列 标签 名 称 ， 并 在 完成 数据 透视 表 的 创建 后 ， 以 对 话 框 的 形式 提 
示 用 户 创 建成 功 。 


(前 用 ) v 


" 修改 数据 透视 表 行 标 六 
Worksheetst” 中 

Cells(4, 1) 
Worksheets(” 

Cells(3, 2) = “WW 
"以 对 话 框 提示 数据 带 
MsgBox “ 衣 仿 数据 焉 视 

End sub 


| 
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知识 链接 “设置 数据 透视 表 的 行 字 段 和 数据 字段 
在 Excel VBA 中 ， 可 使 用 PivotTable 对 象 的 AddDataField 方 法 指定 数据 字段 并 指定 计算 函数 。 
重点 语法 与 代码 剖析 : PivotTable.AddDataField 方 法 的 用 法 


PivotTable.AddDataField 方 法 用 于 将 数据 字段 添加 到 数据 透视 表 中 。 它 返回 一 个 PivotField 对 象 ， 该 对 象 表示 新 的 数据 字段 。 其 语法 格式 为 : 表达 式 .AddDataField (Field，Caption，Function) 。 其 中 ，“ 表 
达 式 ”是 一 个 代表 PivotTable 对 象 的 变量 。Field 是 必需 参数 ， 其 数据 类 型 为 Object， 主 要 指 服 务 器 上 的 唯一 字段 。 如 果 源 数据 是 联机 分 析 处 理 (OLAP) ， 则 唯一 字段 是 多 维 数据 集 字 段 。 如 果 源 数据 不 是 
OLAP， 则 唯一 字段 是 数据 透视 表 字 段 。Caption 是 可 选 参 数 ， 其 数据 类 型 为 Vatiant， 指 数据 透视 表 中 使 用 的 标签 ， 用 于 识别 该 数据 字段 。Function 是 可 选 参数 ， 其 数据 类 型 为 Vafiant， 指 在 已 添加 的 数据 字段 
中 执行 的 函数 。 


步骤 04 ”选择 按钮 控件 。 返 回 Excel 视 图 ,切换 至 “出 货 表 ”工作 表 ， 在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


数量 单价 货品: 
3 ¥f2,500 


2 ¥4,500 


视图 。 开发 工具 
NA 回 履 性 

tt 国 查看 
辐 ] 执行 对 话 框 


Power Pivot 


[EE 


表单 控件 
外 国名 图 国 @ 


bl) 

各 © A 号 拉 
¥7, 500 
¥ 9, 000 


步骤 05 绘制 按钮 控件 并 指定 宏 。 在 工作 表 的 适当 位 置 绘 制 按钮 控件 ， 绘 制 完成 后 弹出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 创 建 静态 数据 透视 表 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ” 按 


2018/1/20 
2018/1/20 


步骤 06 执行 宏 。 


返回 工作 表 ， 将 按钮 控件 上 的 文本 修改 为 “创建 静态 数据 透视 表 " 


三 人 4 


， 然 后 激活 并 单 击 该 按钮 ， 即 可 运行 宏 代码 ， 如 下 图 所 示 。 


购 贷 日 期 
2018/1/20 
2018/1/20 
2018/1720 创建 衣 太 
2018/1/28 透视 表 
2018/1/28 
2018/1/28 
2018/2/25 
2018/2/25 
2018/2/25 
2018/2/29 
2018/2/29 
2018/2/29 
2018/3/1 
2018/3/1 
2018/3/1 
2018/3/9 


I lco 


华 飞 影楼 
华 飞 影楼 
世纪 风 前 
世纪 风 剖 
世纪 风 前 
世纪 风 前 


= Ls 


oh 


求 和 项 : 货 吕 总额“ 购 货 单 Microsoft Excel 
Na 
Re 49ou0 
ne 5040 
16500 
1 5000 


: 这 定 800i 
S20070148 1 0 5400 
总 计 35000 40100 69700 144800 


出 货 统计 表 | 出 货 表 | 产品 信息 | Sheet3 


步骤 08 ”查看 静态 数据 透视 表 的 效果 。 切 换 至 “出 货 统 计 表 ”工作 表 ， 在 该 工作 表 中 生成 了 “出 货 表 ”工作 表 的 数据 透视 表 ， 页 字段 为 “ 购 货 日 期 ”， 行 字段 为 “产品 代码 ”， 列 字段 为 “ 购 货 单 
位 ”， 数 据 字段 为 “货品 总 额 ”， 如 右 图 所 示 。 


货品 总 额 ” 购 货 单 卡 ” 
了 华 飞 影楼 洛 美 影楼 世纪 风韵 总 计 

C20070133 13500 9000 27000 49500 
C20070142 11200 16800 22400 5040 
T20070156 4500 3000 9000 1650C 
P20070123 7500 7500 1500 
P20070160 2000 2000 8000 
S20070148 1800 1800 540 


求 和 项 : 
产品 代码 


4UU00 
1 3UU 


总 于 


C 


1 全 


购 货 单位 人 


省 六 

美里 ; 
洛 美 影楼 
次 美 影 桩 

洁 甘 司 ; 楼 
深 美 影楼 
华 飞 影楼 
化 飞 影 楼 
华 飞 影 楼 
化 飞 影楼 
化 飞 彩 榜 
世纪 网 谢 
世纪 风 族 
世纪 网 询 
世纪 哆 谢 
世纪 风 谢 


ml 


D 
表 

单价 
¥ 2,500 
¥ 4, 500 
¥5,600 
¥1,500 
¥ 2,000 
¥1,800 
¥ 2, 000 
¥1,500 
¥ 4, 500 
¥ 5,600 
¥1,800 
¥ 4,500 
5,600 
¥ 2,500 
¥ 2, 000 
1,500 


39000 


货 呈 总额 


7,500 
9,000 
16, 800 
3,000 
12,000 
¥1, 800 
4, 000 
14,500 
¥13, 500 
11, 200 
1,800 
27, 000 
1 22, 400 
¥7,500 
i 2, 000 
9, 000 


40100 


人 党 日 期 
2018/1/20 
2018/1/20 
2018/1/20 
2018/1/298 
2018/1/28 
2018/1/28 
2018/2/25 
2018/2/25 
2018/2/25 
2018/2/29 
2018/2/29 
2018/2/29 

2018/3/1 

2018/3/1 

2018/3/1 

2018/3/9 


步骤 10 ”弹出 提示 框 。 此 时 会 弹出 提示 框 ， 提 示 用 户 要 先 删 除 已 存在 的 “出 货 统 计 表 ”工作 表 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


P20070123 
C20070133 
C20070142 
I20070156 
P20070160 
S20070148 
P20070160 


时: 
7 FE FT 


洛 美丽 到 
洛 美 最 
治 美 曼 


化 飞 蝶 


15|I20070156“ 华 飞 景 


步骤 11 更 改 数据 透视 表 的 源 数 据 。 切 换 至 


2 


A ee 


C20070142 
320070148 


CeO0T70133 


3 |P20070123 
4 |c20070133 


Ce007014e 
T20010156 


FuUU10160 


20010145 


IFe00 710100 
T20010156 


华 飞 景 

华 飞 影 本 
华 飞 影 楼 
世纪 风韵 


洛 美 影 楼 
沿 美 影 村 


洛 美 影 本 


治 关 影楼 
yy 3 
Ee 


洛 美 影楼 
华 飞 影楼 
华 飞 影楼 


产品 代码 。 购 货 单位 数量 
治 共 最、 


洛 美 骂 Microsoft Excel 


C 


请 先 删 除 " 出 货 统 计 胡 ” 


将 十 


2T 季 5 600 
1 ¥1,800 
6 ¥ 4, 500 


“出 货 表 ”工作 表 ， 将 单元 格 C4 中 的 数量 更 改 为 5;， 如 下 图 所 示 ， 对 应 的 货品 总 额 也 会 随 之 改变 。 


D 
出 货 表 
产品 代码 购 货 单位 。 数量 


单价 
¥ 2, 500 
¥ 4, 500 
¥5, 600 
¥1, 500 
¥ 2, 000 
¥1, 800 
¥ 2, 000 
¥1, 500 


仙 品 总 额 


¥7, 500 
¥ 9, 000 
¥16, 800 
¥ 3, 000 
¥ 2, 000 
¥1, 800 
¥ 4, 000 
¥ 4, 500 
¥13, 500 
¥11, 200 
¥1, 800 
¥ 27, 000 


货品 总 额 


全 时 


¥7,500 
于 站 


16, 800 


¥ 3, 000 
¥ 2, 000 
¥1,800 
¥ 4, 000 
¥ 4, 500 


¥ 4, 500 
¥ 5, 600 
¥1, 800 
¥ 4, 500 


13,500 
¥11, 200 

¥1,800 
¥ 27, 000 


1 IC20070133 | 华 飞 影楼 
12 IC20070142 华 飞 影楼 
“S20070148 _ 华 飞 影楼 

C20070133 世纪 风 询 


步骤 12 ”查看 数据 透视 表 的 效果 。 修 改 源 数据 后 ， 切 换 至 “出 货 统计 表 ” 工 作 表 ， 可 看 到 数据 透视 表 中 产品 代码 “C20070133” 对 应 的 “ 洛 美 影楼 ”的 货品 总 额 并 没有 发 生 相 应 的 改变 ， 说 明 创 建 的 确 
实 是 一 个 静态 数据 透视 表 ， 如 下 图 所 示 。 


中 No 


(全 部 ) [> 


求 和 项 :货品 总 额 “ 购 货 单 疏 ~ 

产品 代码 7 华 飞 影楼 滞 关 影楼 世纪 风 前 总 
C20070133 13500 9000 27000 49500 
C20070142 11200 16800 22400 50400 


下 


[L200 7V01o0 45Uu0 JUUU 3000 165Uu 
P20070123 ?00 ro00 15000 


P20070160 4000 U00 e000 S000 
0 p20070148 1800 1800 1800 J9400 
总 1 5000 40100 69700 144800 


9.2 ”快速 制作 动态 数据 透视 表 


本 节 将 介绍 如 何在 创建 静态 数据 透视 表 代 码 的 基础 上 进行 修改 ， 创 建 动态 数据 透视 表 。 静 态 数据 透视 表 中 的 PivotCaches 对 象 是 固定 的 ， 它 不 随 源 数据 的 变化 而 变化 ， 因 此 ， 静 态 数据 透视 表 不 会 随 着 
源 数据 的 变化 而 自动 更 新 。 本 节 将 把 VBA 程 序 代 码 中 PivotCaches 对 象 的 SourceData 属 性 更 改 为 可 变 的 ， 当 在 数据 透视 表 源 数据 中 添加 、 更 改 数据 时 ， 数 据 透 视 表 会 立即 自动 更 新 。 


要 码 看 视频 


一 一 9 上 : 实例 文件 \ 第 9 章 \ 原 始 文件 \ 出 货 表 的 动态 数据 透视 表 . 允 sm 


实例 文件 \ 第 9 章 \ 最 终 文件 \ 出 货 表 的 动态 数据 透视 表 . 忆 sm 


为 了 创建 动态 数据 透视 表 ， 本 小 节 将 在 创建 静态 数据 透视 表 代 码 的 基础 上 进行 修改 ， 将 其 中 的 不 可 变量 更 换 为 可 变量 。 具 体操 作 如 下 。 


插入 模块 。 打 开 原 始 文 件 ， 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (出 货 表 的 动态 数据 透视 表 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 揪 入 > 模块 ”命令 ， 如 下 图 所 示 。 


国 国 | 站 | 


Solver (SOLVYE 了 .了 LA 
由 题 VYBAProject (FUNCEES. ILAN) 
目 -: YBAPr 四] 名 忆 革 (中 贷 表 的 动态 未 起 TE 
和 a ee Excel 对 凶 国 。 查看 代码 (QO) 


音 看 对 象 ([B) 


-图 Sheet2 人 地 


Sheet3 (Sheet3) : 
mm Thi sWorkbook 导入 文件 仙 .. 


由 - -入 村 导出 文件 (E),. 
称 降 [R) 


步骤 02 编写 “动态 数据 透视 表 ()” 过 程 代码 。 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 自 定义 函数 Have() 的 返回 值 是否 为 真 。 若 为 真 ， 则 调用 自 定 义 过 程 
ReFresh() 刷 新 数据 透视 表 ， 否 则 调用 自 定义 过 程 CreatTable() 创 建 动态 数据 透视 表 。 


动态 数据 衣 视 表 
ed 程 代码 


up 区 光 仙 O 


bin ShtName Ls String 

tHame =“ 动 态 数据 透视 表 “ 
检 棕 吕 下 所 讨 是 天 和 在 
If Have (ShtName) T 


' 疼 洽 在 刚 届 扣 二 芒 娄 牧 透 视 表 
ReFresh (ShtNane) 


Else 
' 车 不 存在 则 创建 动态 数据 透视 表 
CreataTable (ShtNane) 
End If 
End sub 


步骤 03” 自 定义 Have0 函 数 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 结合 使 用 For Each.…Next 循 环 语句 与 |f.….End |f 语 句 ， 判 断 当前 工作 簿 中 是 否 存 在 指定 名 称 的 工作 
表 。 


(通用 ) v 


内 


"判断 指定 名 称 的 工作 表 是 天 存在 
Function Have(Tname As String) hs Boolean 
For Each one In Worksheets 
It one. nane = Tnane Then 
Have = True 
Exlit Funct1lon 
End I 
Next one 
End Function 


步骤 04 编写 CreatTable0 过 程 的 第 1 部 分 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 获取 数据 源 区 域 ， 并 新 建 一 个 用 于 存储 动态 数据 透视 表 的 工作 表 。 


吾 用 ) v 
创建 动态 数据 透视 表 各 


sub CreatTable(Tnane hs Strine) 

' 狱 取 数据 源 区 域 

Din TowNunm As Integer 

rowNun = Range( al _ 
CurrentReglon. Rows. Count 

Dim source Ls Range : 

Set source = eg 1) ， 
Cells (rowNum, 名 
' 新 建 工作 表 用 于 放置 动态 数据 透视 表 

Dim Sht AS Worksheet 

Set Sht = Worksheets. Add 

Sht,. name = Tname 


步骤 05 编写 CreatTable0 过 程 的 第 2 部 分 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 主要 使 用 PivotCaches.Add 方 法 创建 数据 透视 表 。 


"开始 创建 数据 透视 表 
With sht 加 
ActliveWorkbook,. PlyotCaches. Add _ 


(SourceType:=xlDatabase, _ 
SourceData:=source) .CreatePivotTable 
tabledestination:=Cells(l, 1), _ 
tablename:=Tname, detaultverslion:= 
xlPivotTableVersionld0 


知识 链接 ”创建 数据 透视 表 的 第 2 种 方法 
在 步骤 05 中 使 用 了 创建 数据 透视 表 的 另 一 种 方法 ， 即 结合 使 用 PivotCaches 对 象 的 Add 方 法 与 PivotCache 对 象 的 CteatePivotTable 方 法 。 
重点 语法 与 代码 剖析 : PivotCaches.Add 与 PivotCache.CreatePivotTable 方 法 的 用 法 


PivotCaches.Add 方 法 用 于 添加 新 的 数据 透视 表 缓 存 到 PivotCaches 集 合 ， 并 返回 一 个 PivotCache 对 象 ， 其 语法 格式 为 : PivotCaches.Add (SourceType，SourceData) 。SourceType 是 必需 参数 ， 用 于 指定 数据 
透视 表 缓 存 的 数据 来 源 类 型 ， 可 为 以 下 常量 之 一 : xlConsolidation、xlDatabase、xlExternal、xlPivotTable、xlScenario。SourceData 是 可 选 参 数 ， 用 于 指定 新 的 数据 透视 表 缓 存 的 源 数 据 。 如 果 SourceType 参 数 不 是 
xlExtetnal， 则 必须 给 出 SoutceData 参 数 。SoutceData 参 数 可 以 是 Range 对 象 、 存 储 有 单元 格 区 域 的 数组 或 一 个 代表 现 有 数据 透视 表 名 称 的 文本 常量 。 


PivotCache.CteatePivotTable 方 法 用 于 基于 一 个 PivotCache 对 象 创建 一 个 数据 透视 表 ， 并 返回 一 个 PivotTable 对 象 ， 其 语法 格式 为 : 表达 
式 .CreatePivotTable (TableDestination ，TableName，ReadData，DefaultVetsion) 。 “表达 式 ” 是 一 个 代表 PivotCache 对 象 的 变量 。TableDestination 为 必需 参数 ， 用 于 指定 放置 数据 透视 表 的 单元 格 区 域 左 上 和 角 的 
单元 格 。TableName 为 可 选 参 数 ， 用 于 指定 新 的 数据 透视 表 的 名 称 。ReadData 为 可 选 参数 ， 本 实例 中 不 必 指 定 。DefaultVetsion 为 可 选 参数 ， 用 于 指定 数据 透视 表 的 默认 版 本 。 


步骤 06 编写 CreatTable0 过 程 的 第 3 部 分 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 于 为 数据 透视 表 添 加 页 字段 和 列 字段 。 


| 


' 翅 下 数据 遗 视 表 的 字段 
WH des Tane 


页 字段 
With .PivotFields(” 购 贷 日 期 *) 


,Orientation = xlPageField 
.Position = 1 

End With 

" 设 芋 列 字段 | 

With .PiyvotFields 已 购 仙 单位 人) 
,Orientation = xlColumnField 
.Position = 1 

End Yith 


步骤 07 ”编写 CreatTable0 过 程 的 第 4 部 分 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 为 数据 透视 表 添加 行 字 段 和 数据 字段 。 


| ss 
v 


和 上 一 Fa FN, | 
设置 行 字段 本 
With .PiyotFields ("产品 代码 ”) 
.Orientation = xlRowField 
. Position = 1 
End With 
设置 数据 字段 
.LddDataField hctiveSsheet.PivotTables 
(Tname) . PivotFields ("货品 总 和 额 ”)， 
“ 求 和 项 :货品 总 额 ”，xlLSunm 
End With 
ActiveWorkbook. ShowPlvotTableFieldList 
= False 
End With 
End Sub 


步骤 08 自 定义 ReFresh0 过 程 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 更 新 动态 数据 透视 表 的 内 容 ， 其 中 主要 使 用 PivotCache.ReFresh 方 法 来 更 新 数据 透视 表 的 缓 
存 。 


和 : 
sub ReFresh(Tnane > rl 
' 医 取 指定 区 域 的 行 


Dim rowNum As Integer 
rowNun = Ranee(’ al ) CurrentResgion.Rows.Count 


RC NE PivotTables (Tname). 


:招生 新 名 昌 所 区域 
. SourceData = 上 ctlveoheet. name + 
"Ir2cl:r” & CStrlrowNum) & ce” 

刷新 数据 和 远视 表 
. ReFresh 

End YWith 

hctiveWorkbook. ShowPlivotTableFieldList _ 
= False 

End Sub 


重点 语法 与 代码 剖析 : PivotCache.ReFresh 方 法 的 用 法 
PivotCache.ReFresh 方 法 的 语法 格式 为 : 表达 式 .ReFtresh。 该 方法 用 于 立即 重新 绘制 指定 的 图 表 。 其 中 ，“ 表 达 式 ”是 一 个 代表 PivotCache 对 象 的 变量 。 


在 步骤 08 的 代码 中 ， 首 先 获 取 修 改 后 的 数据 透视 表 源 数据 ， 然 后 使 用 PivotCache.ReFresh 方 法 重新 绘制 指定 的 图 表 ， 生 成 新 的 数据 透视 表 ， 即 可 实现 刷新 数据 透视 表 的 功 朋 


9.2.2 ”编写 代码 自动 更 新 数据 透视 表 


若 要 实现 数据 的 自动 更 新 ， 还 需 添加 在 修改 工作 表 内 容 时 自动 执行 的 刷新 数据 透视 表 的 过 程 代码 。 具 体操 作 如 下 。 
窗口 中 双击 Sheet1 选 项 ， 然 后 在 打开 的 “Sheet1 (代码 ) ”窗口 中 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 自 定义 


步骤 01 自动 更 新 数据 透视 表 。 继 续 上 一 小 节 的 操作 ， 在 “工程 " 


Worksheet Cha ee 


下 站 和 
Wor 


A 
i ”过 程 
的 


heet_ Cha 


Check = True 
Else 

Check = False 
End I+t 


End Functlion 


La] 
a aotByVal Target Ls Range) 
单元 格 是 知 符 合 件 
Target) Then 

态 数 ] 带 规 甫 

份 奋 直人 首 修 羽 | 
Function Check (ain 二 Range) As Boolean 
"修改 只 能 发 生 在 一 个 单元 格 上 

It ain.Count = 1 Then 


“< 


知识 链接 ”自动 更 新 数据 透视 表 


Worksheet_Change (ByVal Target As Range) 事件 在 更 改 单元 格 内 容 时 触发 ， 在 其 过 程 代 码 中 调用 之 前 编写 的 动态 数据 透视 表 过 程 ， 就 可 实现 自动 更 新 数据 透视 表 数 据 。 
步骤 02 ”返回 Excel 视 图 。 单 击 菜单 栏 中 的 “文件 ”菜单 ， 在 展开 的 列表 中 单 击 “ 关 闭 并 返回 到 Microsoft Excel” 


命令 ， 如 下 图 所 示 。 


… 畴 | Sheetll a | 居 委 守 : 
| 团 ] sheet2 (产品 入 息 ) 
… 转 |] Sheet3 (Sheet3) 
-站 Thi sWorkbook 
“8 模块 
“号 模 块 1 


步骤 03 ”选择 按钮 控件 。 返 回 Excel 视 图 后 ， 在 “开发 工具 ”选项 卡 下 单 击 “控件 ”组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”选项 ， 如 下 图 所 示 。 
视图 。 开发 T 具 | Power Pivot ”QQ 告诉 我 


MY 尾 性 司 此 映 射 尾 性 
代 二 档 扩 展 包 
1 刷新 数据 
表单 控件 XML 
折 国 四国 国 e@ | 
| Aa 证 回国 希 | 
ActiveX 控件 G 
三 bl] 自 
国 @A 巴 旦 于 
201871720 
2018/1/20 
2018/1/20 创建 静 志 数据 


2018/1/28 透视 表 
2018/1/28 


步骤 04 ”绘制 按钮 控件 并 指定 安 。 在 工作 表 的 适当 位 置 绘制 按钮 控件 ， 绘 制 完成 后 弹出 “指定 安 ” 对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 动 态 数据 透视 表 ” 选 项 ， 如 下 左 图 所 示 ， 然 后 单 击 “ 确 定 ” 按 


步骤 05 ”执行 “动态 数据 透视 表 (0” 过 程 。 返 回 工作 表 ， 更 改 按钮 控件 上 的 文本 为 “创建 动态 数据 透视 表 ” 并 激活 该 按钮 ， 然 后 单 击 该 按钮 ， 如 下 右 图 所 示 ， 即 可 执行 为 该 按钮 指定 的 安 。 


单价 品 总 额 ” 购 贷 日 期 
¥ 2, 500 i F500 2018/1/20 
¥4,500 | ¥22,500 2018/1/20 
¥5,600 | ¥16,800 2018/1/20 
¥1,500 ¥3,000 2018/1/28 
¥ 2, 000 ¥ 2, 000 2018/1/28 
¥1, 800 ¥1,800 2018/1/28 
闻 2, 000 。 闻 4 000 ”2018/2/25 创建 动态 数据 
¥1,500 ¥4,500 2018/2/25 透视 表 | 
¥4,500  ¥13,500 2018/2/25 
¥5,600  ¥11,200 2018/2/29 
¥1,800 ¥1,800 2018/2/29 
¥4,500  ¥27,000 2018/2/29 
¥5,600 | ¥22, 400 2018/3/1 
¥ 2,500 ¥7,500 2018/3/1 
¥ 2, 000 ¥ 2, 000 2018/3/1 
¥1,500 ¥9,000 2018/3/9 


步骤 06 ”查看 创建 数据 透视 表 后 的 效果 。 程 序 执行 完毕 后 ， 在 工作 簿 中 创建 了 一 个 名 为 “动态 数据 透视 表 ” 的 工作 表 ， 并 在 该 工作 表 中 生成 “出 货 表 ”的 数据 透视 表 ， 如 下 图 所 示 。 


| 


PN Py PR Pg PN PR Pg me OY PE 


求 和 项 : 号 6 所 视 购 货 单位 [| 

产品 代码 |] 华 飞 影 楼 。 党 美 影楼 ”| 世纪 风韵 ”| 总 计 | 
C20070133 ] 13500 22500 27000| 63000 
C20070142 ] 11200 16800 22400| 50400| 
I20070156 ] 4500 3000 9000| 16500 
P20070123 | 7500 7500| 15000| 
P20070160 | 4000 2000 2000| 8000| 
S20070148 | 1800 1800 1800| 5400, 
| | 总 计 | 35000 53600 69700| 158300, 


1 
2 
3 
4 
6 
7 
8 


步骤 07 添加 出 货 记 录 。 切 换 至 “出 货 表 ”工作 表 ， 在 该 工作 表 中 添加 一 条 2018 年 3 月 20 日 出 货 给 良缘 影楼 的 记录 ， 如 下 图 所 示 。 


¥1,500 ¥ 4, 500 2018/2/25 
¥4,500 | ¥13,500 2018/2/25 
¥5,600  ¥11,200 2018/2/29 
¥1,8300 ¥1,800 2018/2/29 
¥4,500 | ¥27,000 2018/2/29 
¥5,600  ¥22, 400 2018/3/1 
¥ 2,500 ¥7,500 2018/3/1 
¥ 2, 000 ¥ 2, 000 2018/3/1 
¥1,500 ¥ 9,000 2018/3/ 9 
¥1,800 ¥1, 800 

¥4,500 | ¥27,000 


) I20070156 华 飞 彩 榜 
C20070133 华 飞 影楼 
C20070142 华 飞 影楼 
S20070148 人 华 飞 到 楼 
-C20070133 世纪 风 询 
5 IC20070142 世纪 风 齐 
P20070123 世纪 网 谢 


P20070160 世纪 风 前 
T20070156 世纪 风 草 
9 |320070148 ”世纪 风韵 
0 |P20070133 良缘 影楼 


步骤 08 ”修改 数据 透视 表 源 数据 后 的 效果 。 用 户 每 修改 一 个 单元 格 内 容 时 ， 系 统 都 会 自动 执行 “动态 数据 透视 表 () ”过程 刷新 数据 透视 表 。 切 换 至 “动态 数据 透视 表 ” 工 作 表 ， 可 以 看 到 数据 透视 表 中 
添加 了 良缘 影楼 的 记录 ， 如 下 图 所 示 。 


两 页 村 em 


求 和 项 :货品 总 额 | 购 货 单位 |” 
产品 代码 1 了 | 华 飞 影楼 党 美 影楼 世纪 风韵 民 缘 影楼 
C20070133 | 13500 22500 27000 
C20070142 | 11200 16800 
TI20070156 | 4500 3000 
0 
0 


CD = EEC 一 


P0070123 | ro0 
P220070160 | 4000 200 
S20070148 | 1800 180 


53600 69700 27000| 185300 


a BB 
1 | 购 货 日 期 (全部) | 


01 洛 美 影 模 世纪 风 前 良 绎 影楼 


a 22500 27000 
Ei 16800 22400 


_- 回 2018/2725 3000 9000 
- 回 2018/3/1 7500 7500 
-四 2018/3/9 2000 2000 
“ 回 2018/3/20 1800 1800 


53600 69700 


Si 多 项 
| a 


步骤 10 ” 勾 选 2018 年 1 月 的 选项 。 在 展开 的 列表 中 取消 勾 选 “” (全 部 ) ” 复 选 框 ， 依 次 勾 选 2018 年 1 月 的 选项 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


A i : 
1 | 购 贷 日 其 人 【全 部 ) 


画 人 二 RE 
加 aa 22500 27000 

- 回 201871728 16800 22400 
.中 2018/2/25 3000 9000 
… 口 2018/3/1 7500 7500 
- 口 2018/3/9 2000 2000 
“2018/3/20 1800 1800 


Loobuu 63100 


党 六 和 


9.3 “快速 生成 动态 数据 透视 图 


在 Excel 中 ， 除 了 可 以 使 用 数据 透视 表 将 大 量 数 据 汇总 外 ， 还 可 以 使 用 数据 透视 图 直观 地 查看 各 数据 之 间 的 关系 。 本 节 首 先 使 用 录制 宏 功 能 录制 一 个 “创建 静态 数据 透视 图 ” 宏 ， 然 后 在 该 宏 代 码 的 基础 


上 作 修 改 ， 得 到 需要 的 生成 动态 数据 透视 图 的 代码 。 


扫 码 看 视频 


各， 实例 文件 \ 第 9 章 \ 原 始 文 件 \ 出 货 表 的 动态 数据 透视 图 .xlsm 
实例 文件 \ 第 9 章 \ 最 终 文件 \ 出 货 表 的 动态 数据 透视 图 .xlsm 


安 ， 为 后 续 的 代码 编写 提供 参考 。 具 体操 作 如 下 
a 信 息 ， 如 下 图 所 示 。 


本 小 节 将 录制 一 个 “创建 静态 数据 透视 图 
打开 工作 簿 。 打 开 原 始 文 件 ， 可 看 到 在 该 工作 簿 中 存在 两 个 工作 表 ， 分 别 记录 了 出 货 记录 和 产品 信息 


1 

2 产品 全 码 
3 IP20070123 
4 IC20070133 
5 IC20070142 
6 |I20070156 
7 IP20070160 
8 |s20070148 
9 |P20070160 
10 II20070156 
11 IC20070133 
12 |C20070142 
13 |320070148 
14 IC20070133 
15 IC20070142 
16 |P20070123 
17 |P20070160 
18 |TI20070156 


质 音 位。 数 旺 


兰 是 ; He 
Eo 
这 国 ;4 
Eh 


洛 美 影楼 
洛 美 影楼 
洛 美 影楼 
洛 美 影楼 
华 飞 影楼 
华 飞 影 楼 
华 飞 影 楼 
华 飞 影 楼 
华 飞 影楼 
世纪 风韵 
世纪 风韵 
世纪 风韵 
世纪 风 齐 
世纪 风 章 


¥ 2, 000 
1,500 


出 贷 表 | 产 6a 信 息 


步骤 02 ”打开 “录制 安 ” 对 话 框 。 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 


组 中 的 “录制 宏 ” 按 钮 ， 如 下 图 所 示 。 


贫 品 总 额 
¥7,500 
¥9,000 

¥16, 800 
¥ 3, 000 
¥ 2, 000 
¥1, 800 
44, 000 
¥ 4,500 

¥13, 500 

¥11, 200 
¥1, 800 

¥ 27, 000 

¥ 22, 400 
¥7,500 
¥2,000 
9,000 


购 宫 日 期 
2018/1/20 
2018/1/20 
2018/1/20 
2018/1/28 
2018/1/28 
2018/1/298 
2018/2/25 
2018/2/25 
2018/2/25 
2018/2/29 
2018/2/29 
2018/2/29 
2018/3/1 
2018/3/1 
2018/3/1 
2018/3/9 


加 Excel COM 加 载 黄 插入 
载 砚 ”加 戟 萝 


加 载 项 


| D 
出 货 表 


_ 购 贷 单 位 
洛 美 影楼 
洛 美 影楼 
洛 美 影楼 


数量 单价 
3 ¥2,500 
2 ¥4,500 


3 ¥5,600 


， 如 下 图 所 示 ， 然 后 单 击 “确定 ”按钮 ， 开 始 宏 的 录制 。 


货品 总 额 
¥7, 500 
¥9, 000 

¥16, 800 


产品 代码 
a eee: 
C20070133 
C0070142 


步骤 03 ”输入 宏 名 。 弹 出 “录制 宏 ” 对 话 框 ,在 “ 宏 名 ”文本 框 中 输入 宏 名 “创建 静态 数据 透视 图 " 


步骤 04 打开“ 创建 数据 透视 图 ”对 话 框 。 在 “插入 ”选项 卡 下 单 击 “ 图 表 ” 组 中 的 “数据 透视 图 ”下 三 角 按 钮 ， 在 展开 的 列表 中 单 击 “ 数 据 透 视图 ”选项 ， 如 下 图 所 示 。 


审阅 视图 并 点 | 具 Power Pivot 名 告诉 我 您 想 要 做 什么 ... 


: Dy. ri iy 
我 的 加 载 项 ,| :。 走 / - 


货品 总 额 购 货 日 期 
¥7,500 201871720 
¥9,000 2018/1/20 

¥16,800 2018/1/20 
¥ 3,000 2018/1/28 
¥2,000 2018/1/28 


步骤 05 ”选择 需 分 析 的 数据 。 弹 出 “创建 数据 透视 图 ”对 话 框 ， 单 击 “ 表 /区 域 ”文本 框 后 的 折 芭 按钮 ， 如 下 图 所 示 。 


IP20 
IC20 
IC20 
IT20 
P20 
1920 
IP20 
10 II20 
11 IC20 
12 IC20 


1 
2 
3 
和 4 
9 
- 
3 
9 


13 Is20 
14 Ic20 
15 IC20 
16 IP20 
17 IP20 


O70125 
O70133 
O70142 


O70156 | 


| 产品 代码 。 购 货 单位 新 


洛 关 彩 入 


货 表 $A$2:$F$19| 


070160 一 


Qir0l48 
O70180 
070156 
O70133 
QirOl142 
QT70148 
QT70135 
Qir0l4: 
OTOl123 
QO0160 


18 IT20070156 


党 美 影楼 


华 飞 影楼 
华 飞 影楼 
华 飞 影楼 
华 飞 影楼 
华 飞 影 楼 
世纪 风韵 
世纪 风韵 
世纪 风韵 
世纪 风韵 
世纪 风韵 


了 IT. B00" 


¥ 2, 000 
¥1,500 
¥ 4, 500 
¥5, 600 
¥1, 800 
¥ 4, 500 
¥5, 600 
¥2, 500 
¥ 2, 000 
¥1, 500 


货品 总 额 


¥7,.500., 


? 


T1800" 


¥ 4, 000 
¥ 4, 500 
¥13, 500 
¥11, 200 
¥1, 800 
¥ 27, 000 
¥ 22, 400 
¥7, 500 
¥2, 000 
¥ 9, 000 


可 
| 


201871720| 
x 1/20! 
/20! 
(1/28! 
1/28! 
2018/1/28! 
2018/2/251! 
2018/2/25I 
2018/2/25! 
2018/2/29! 
2018/2/29! 
2018/2/29! 
20187 3711 
201873711 
201873711 
2018713791 


货 表 | 产品 信息 | Sheei 也 


步骤 07 ”选择 放置 数据 透视 图 的 位 置 。 返 回 “ 创 建 数据 透视 图 ”对 话 框 ， 在 “选择 放置 数据 透视 图 的 位 置 ” 选 项 组 中 选中 “新 工作 表 ” 单 选 按钮 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


落 择 运 疮 章 1 图 吉 1 


六 数据 透视 图 字段 


| 沙 导 生 握 投 查 ， 请 从 “ 敌 括 得 视 天 晤 二 点 瘟 关 避 视 天， 请 办 类 并 和 进 视 赤字 息 基 基 中 让 二 玫 避 。 | | 选择 要 翅 加 机 胡 的 字段 : 
可 字 虹 列表 ”中 应 兰 字 圾 。 


= Ei Eli ds Ei BR] 王 一 


Hh” 


s Bi 


电 


Ti ! 


E 


在 以 下 区 域 间 疤 动 字 店 : 


下 篇 迁 十 


Sheet1 | 出入 表 | 产 m 信 人 :mL | 


步骤 09 为 数据 透视 图 添加 字段 。 在 “选择 要 添加 到 报表 的 字段 ”列表 框 中 勾 选 需要 的 字段 ， 再 将 选中 的 字段 拖 放 到 合适 的 字段 区 域 ， 如 下 图 所 示 。 


类 癌症 位 
加 此 飞 影 楼 站 
下 ;月 美 影 横 


面世 纪 风 前 
| ns 国 国 和 


070123P2007 0160520070148 在 以 下 区 域 间 抱 动 字 请 
oO 下 短 选 咒 川 图例 (于 列 ) 


旭 生 日 其 加 


三 轴 ( 类 别 ) 


"| 水 和 项 : 癌 口上 
| 


步骤 10 ”更 改 图 表 的 类 型 。 在 “数据 透视 图 工具 -设计 ”选项 卡 下 ， 单 击 “ 类 型 ”组 中 的 “更 改 图 表 类 型 ”按钮 ， 如 下 图 所 示 。 


步骤 11 选择 图 表 类 型 。 弹 出 “更 改 图 表 类 型 ”对 话 框 ， 在 “ 柱 形 图 ”选项 卡 中 单 击 “ 三 维 柱 形 图 ”选项 ， 如 下 图 所 示 。 选 择 完毕 后 ， 单 击 “ 确 定 ”按钮 。 


二 | 


国 半 飞 且 楼 口 


面世 纪 风 前 


步骤 13 ”设置 图 表 的 三 维 格式 。 右 击 图 表 ， 在 弹出 的 快捷 菜单 中 单 击 “ 设 置 图 表 区 域 格式 ”命令 ， 如 下 图 所 示 。 


国 症 2 是 车 棚 
世纪 风 葛 虽 治 美 曙 相 


习 叶 各 。 世纪 风 的 


步骤 14 ”设置 X 轴 和 Y 轴 的 旋转 角度 。 打 开 “ 设 置 图 表 区 格式 ” 窗 格 ， 在 “效果 ”选项 卡 下 设置 “三 维 旋转 ”选项 组 中 的 “X 旋 转 ” 和 “Y 旋 转 ” 为 40"， 勾 选 “ 直 角 坐 标 轴 ” 复 选 框 ， 单 击 “ 关 闭 ” 按 
钮 ， 如 下 图 所 示 。 


设置 图 表 区 格式 


图 表 选 网 | 蕊 本 选项 


9 吕 对 


见 I El 
国 | 保持 立 本 平面 装 坊 [kK 


昕 谎 边 高 度 (D) 


[lw 直角 举 标 辆 0 


步骤 15 ”查看 三 维 旋转 后 的 效果 。 返 回 工 作 表 ， 可 以 看 到 数据 透视 图 已 根据 三 维 旋转 的 设置 调整 了 图 表 的 视角 ， 如 下 图 所 示 。 


步骤 17 ”查看 删除 图 例 后 的 效果 。 此 时 可 看 到 数据 透视 图 中 的 图 例 已 被 删除 ， 如 下 图 所 示 。 


步骤 18 ”停止 录制 安 。 在 “开发 工具 ”选项 卡 下 单 击 “ 代 码 ” 组 中 的 “停止 录制 ”按钮 ， 如 下 图 所 示 。 


臣 和 停止 


=[) va 


Visual Baslc 守 


站 和 项 -货品 总 额 列 标 签 了 
行 标签 了 华 飞 影楼 洛 美 影楼 世纪 风 章 


步骤 19 ”查看 录制 的 宏 的 代码 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 双击 “模块 1” 选 项 ， 在 打开 的 “模块 1 (代码 ) ”窗口 中 记录 了 刚才 创建 数据 透视 图 的 代码 ， 如 下 图 所 示 。 


硬 用 ) ~ 
Sub 创建 静态 数据 透视 图 0 


创建 静 访 数据 透视 图 Jacro 
Sheets. Add 
ActiveWorkbook. PivotCaches. Createl(SourceType:=xlDatabase, SourceData:= _ 
“出 货 表 IR2C1 :R19C6”，Yersion: =XlPivotTableVersionl2) . CreatePivotTable 


tabledestination:= “Sheet11R1C1?， tablename:= “数据 透视 表 1?， defaultversion:= _ 
xlPivotTableVersionl2 

Sheets ("Sheetl”). Select 

Cells(1, 1).Select 

ActiveSheet. Shapes. AddChart. Select 


ActiveChart. SetSourceData source:=Range( Sheetl!$A$1:$C$18") 

ActiveWorkbook. ShowPivotChartActiveFields = True 

ActiveChart. ChartType = xlPyramidColSstacked 

Application. Width = 663.75 

Application. Height = 441. 75 

Application. Left = 23.5 

Application. Top = 17.5 

Application. Width = He 0 

Application. Height = 

With ActiveSsheet. PivotTables ("数据 透视 表 1”). PivotFields (“产品 代码 ”) 
.Orientation = xlRowField 
. Position = 1 

End With | 

With ActiveSheet. PivotTables (“数据 焉 视 表 1”).PiyotFields(” 购 贷 单 位 ”) 
.Orientation = xlRowField 


步骤 20 ”查看 宏 的 后 半 部 分 代码 。 “创建 静态 数据 透视 图 ” 宏 的 后 半 部 分 代码 如 下 图 所 示 。 它 是 根据 用 户 创建 数据 透视 图 的 步骤 来 记录 的 。 


创建 静态 数据 透视 图 v 
.Position = 2 
End With 
ActiveSsheet. PivotTables (” 数据 透视 表 1 .AddpataFielad Activesheet. PivotTables ("数据 焉 视 表 1” 
) .PivotFields( 货品 总 额 》，“ 求 和 项 :货品 总 额 *“，x]Sum 
With ActiveSheet. PivotTables (“数据 透视 表 1”). PivotFields (“ 购 货 日 期 * ) 
.Orientation = xlRowField 
. Position = 3 
End With | 
With 上 Activesheet.PivotTables( 数据 透视 表 1”) .PivotFields 性 购 货 日 期 ”) 
.Orientation = xlPageField 
.Position = 1 
End With | 
With 上 activeSheet.PivotTables( 数据 透视 表 1) .PiyotFields(“ 购 贷 单位 ”) 
.Orientation = xlColumnField 
.Position = 1 
End With 
ActiveWindow. SmallScroll Down:=-3 
ActiveWorkbook. ShowPivotChartictiveFields = False 
ActiveChart. ChartType = xl3DColumn 
Rangel” J15”). Select 
Activesheet. Chartobjects ("图 表 1”).Activate 
ActiveChart. Legend. Select 
Selection. Delete 
Activesheet. Chartobjects ("图表 1 Activate 
Activesheet. Chartobjects ("图 表 1”).Activate 
Activesheet. ChartObjects ("图 表 1”).Activate 
End Sub 


9.3.2 ”编写 代码 创建 动态 数据 透视 图 


本 小 节 将 参考 录制 的 “创建 静态 数据 透视 图 ” 宏 代 码 ， 编 写 创建 动态 数据 透视 图 的 代码 。 具 体操 作 如 下 。 


步骤 01 插入 模块 。 继 续 上 一 小 节 的 操作 ， 在 “工程 ”窗口 中 右 击 “VBAProject (出 货 表 的 动态 数据 透视 图 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “插入 > 模块 ”命令 ， 如 下 图 所 示 。 


cr 


国 - 遇 Solver (SOLYER._TXLAE) 
由 - 嫩 YBAProject (FUNCRES_XLAE) 
:省 vBAProject (〈 出 代表 的 动态 计生 aesa 
日 -全 Wi erosott Exeel 对 象 国 ”前者 代 从 (0) 
: … 围 ] Sheatl (Sheetl) 查看 对 象 (B) 


-… 围 ] Sheetl4 《ab 态 煞 据 ] 盘 神 

一 围 Sheet2 (出 筑 表 ) 

一 朋 ] Sheat3 【产品 信息 ) 

… 围 ] Sheetd4 (Sheet3) 
| ThisWorkbook 导入 文件 山 … 
由 -入 模块 导出 文件 (E).. 


穆 除 (R) 


步骤 02” 自 定义 “动态 数据 透视 图 0” 过程。 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 调 用 自 定义 的 Have() 函 数 来 检查 数据 透视 图 是 否 已 存在 。 如 果 存 在 ， 则 调用 
ReFresh0 过 程 刷 新 源 数 据 ; 否则 调用 CreatTable(0 过 程 新 建 数据 透视 图 。 


ey Bs n 
s “动态 数据 种 视图" 
容 客 昌 丰 灿 据 次 沉 国 宇 洗 竺 在 
TF , Have (ShtName) Then 
' 后 存 在 则 刷新 动态 数据 下 视图 
ee (shtName) 


8 各 不 存在 刚 创建 动态 数据 透视 图 
CreatTable (ShtName) 
End It+t 
End Sub 


(通用 ) 


"判断 指定 名 称 的 工作 表 是 否 存 在 
Function Have(Tnamne As Strine) As Boolean 
For Each one In Worksheets 
It one.Name = Tname Then 
Have = TIrue 
Exit Function 
End If 
Next one 
End Functlon 


步骤 04 ” 自 定 义 CreatTable0 过 程 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 定义 变量 ， 存 储 获取 的 数据 源 区 域 。 


| | ss 
ww | ICreatTable ww 


A 


' 创建 动态 数据 下 视图 z 
Soh croatTabl ginane As Strine) 
' 获取 数据 源 区 域 


Dim rowNum LAs Integer 

rowNun = Range( Al’) 
. CurrentReglon. Rows. . Count 

Di source hs Range 

Set source = RaneetCells (2, 1), 
Cells (rowNHum, 6 ) 


步骤 05 编写 创建 数据 透视 表 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 7 段 代码 主要 使 用 Sheets 对 象 的 Add 方 法 新 建 工 作 表 集合 ， 然 后 使 用 PivotCaches.Create 方 法 创建 


【通用 ) | ICreatTable 


"创建 数据 四 视图 的 过 程 
Sheets. Add 
Activesheet. Name = Tname 


创建 数据 透视 


pe pe 


(SourceType:=xlDatabase, _ 
SourceData:=source).CreatePiyotTable _ 
tabledestination:=Cells (1, 1), _ 
tablename:=Tname, detaultvyversion:= 
xlPivotTableVYersionl2 


步骤 06 编写 创建 数据 透视 图 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 创建 数据 透视 图 ， 并 设置 数据 透视 图 的 图 表 类 型 、 大 小 与 位 置 ， 其 中 使 用 
Shapes.AddChart 方 法 新 建 数据 透视 图 。 


EE Xx 
oo 


` 创建 数据 远视 图 

Sheets (Tname). Select 

Cells(l1l, 1).Select 

AictiveSheet. Shapes. AddChart. Select 

hictiveChart. SetSourceData source:= 
Worksheets (Tnane). Ranee(” $A$1 :$C$18") 

hictiveWorkbook. ShowPilvotCharthActiveFields _ 
= True 

ActiveChart. ChartType = xl3DColumn 

Application. Width = 663.75 

hpplication. Helght = 441. 75 

hippllication.Lett = 25 

Applicatlion. Top = 18 


重点 语法 与 代码 剖析 : Sheets 对 象 与 PivotCaches.Create 方 法 的 用 法 
Sheets 对 象 是 指定 的 或 活动 工作 簿 中 所 有 工作 表 的 集合 。 它 包含 Chart 和 Wotrksheet 对 象 。 当 它 与 Add 方 法 结合 使 用 时 ， 可 以 创建 一 个 新 的 工作 表 并 将 它 添加 到 集合 。 


PivotCaches.Cteate 方 法 用 于 创建 新 的 PivotCaches。 其 语法 格式 为 : 表达 式 .Create (SourceType，SourceData，Version) 。SourceType 是 必需 和 参数， 数据 类 型 为 xlPivotTableSourceType， 它 可 以 为 
XIConsolidation、 允 Database 或 xlExtetnal 三 种 常量 。SoutrceData 是 可 选 参 数 ， 数 据 类 型 为 Vatiant， 用 于 指定 新 数据 透视 表 缓 存 的 数据 。Vetsion 是 可 选 参 数 ， 数 据 类 型 为 Variant， 用 于 指定 数据 透视 表 缓 存 的 版 本 。 
该 参数 的 常量 值 请 参考 帮助 文件 。 使 用 该 方法 时 需 注 意 以 下 几 点 : 


@ ”创建 PivotCache 时 ， 不 支持 PivotTable 和 xlScenatio 这 两 个 常量 。 如 果 提 供 这 两 个 常量 之 一 ， 将 返回 运行 时 错误 。 
图 ”如果 SoutceType 不 为 思 External， 则 SoutceData 参 数 为 必需 。 该 参数 可 以 为 Range 对 象 ( 当 SoutceType 为 允 Consolidation 或 xlDatabase 时 ) ， 或 为 Excel 工 作 簿 连接 对 象 ( 当 SoutceType 为 xlIExternal 时 ) 。 


Dea 


@@ 如 果 不 提供 数据 表 视 表 的 版 本 ， 则 版 本 上 默认 为 KIPivotTableVersion12。 不 允许 使 用 xlPivotTableVersionCurrent 常 量 ， 如 果 提 供 该 常量 ， 将 返回 运行 时 错误 。 


知识 链接 ”创建 数据 透视 图 的 代码 
在 Excel VBA 中 可 使 用 Shapes 对 象 的 AddChatt 方 法 添加 图 表 ， 使 用 Chart 对 象 的 SetSoutceData 方 法 设置 图 表 的 数据 源 区 域 。 
重点 语法 与 代码 剖析 : Shapes.AddChart 与 Chart.SetSourceData 方 法 的 用 法 


Shapes.AddChart 方 法 用 于 在 活动 工作 表 中 的 指定 位 置 创建 图 表 ， 其 语法 格式 为 : 表达 式 .AddChart (Type，Left，Top，Width，Height) 。 其 中 ，Type 是 可 选 参数 ， 其 数据 类 型 为 XIChartType， 用 于 指定 图 
表 的 类 型 ; Left 是 可 选 参 数 ， 其 数据 类 型 为 Variant， 用 于 指定 从 对 象 左边 界 至 A 列 左边 界 〈 在 工作 表 上 ) 或 图 表 区 左边 界 〈 在 图 表 上 ) 的 距离 (以 磅 为 单位 ) ; Top 是 可 选 参数 ， 其 数据 类 型 为 Variant， 用 于 指 
定 从 图 形 区 域 最 上 端 图 形 的 顶端 到 工作 表 顶 端的 距离 (以 磅 为 单位 ) ; Width 是 可 选 参数 ， 其 数据 类 型 为 Variant， 用 于 指定 对 象 的 宽度 (以 磅 为 单位 ) ; Height 是 可 选 参数 ， 其 数据 类 型 为 Vatiant， 用 于 指定 
对 象 的 高 度 ( 以 磅 为 单位 ) 。 如 果 用 户 在 创建 图 表 时 省 略 了 图 表 类 型 、 位 置 和 大 小 ， 则 使 用 应 用 程序 的 默认 值 。 


Chart.SetSourceData 方 法 用 于 为 指定 图 表 设 置 数据 源 区 域 。 其 语法 格式 为 : 表达 式 .SetSourceData (Source，PlotBy) 。 其 中 ，Soutce 是 必需 参数 ， 其 数据 类 型 为 Range， 用 于 指定 包含 源 数据 的 区 域 ; PlotBy 
是 可 选 参 数 ， 其 数据 类 型 为 Vatiant， 用 于 指定 数据 绘制 方式 ， 可 为 以 下 常量 之 一 : xJColumns 或 XIJRows。 


步骤 07 编写 代码 为 数据 透视 表 添 加 页 字段 和 列 字段 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 与 9.2.1 小 节 中 添加 页 字段 和 列 字段 的 代码 相同 。 


( 殊 用 ) CreatTable 


" 设置 数据 透视 表 的 字段 
With ActiveSsheet. PivotTables (Tname) 
" 设 下 页 字段 本 
With .PivotFields(” 购 宽 日 期 ) 
.Orientation = xlPageFlield 
.Position = 1 
End With 
设 站 列 字 段 | - 
With .PiyotFields(” 购 贷 单位 ”) 
.Orientation = xlColunmnnField 
. Position = 1 
End With 


步骤 08 ”编写 代码 为 数据 透视 表 添 加 行 字段 和 数据 字段 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 与 9.2.1 小 节 中 添加 行 字段 和 数据 字段 的 代码 相同 。 


w | ICreatTable 


设置 行 字段 

With .PivotFields (“产品 代码 ”) 
.Orientation = xlRowField 
.Posltlon = 二 


版 
.AddDataField hctiveSheet. PlvyotTables _ 
(Tname) . PiyotFields( 货品 总 条”) 
“ 求 和 项 : 质 品 总 额 ”， Xl] Sunm 
End With 
We RO NE NE _ 
= halse 


步骤 09 编写 代码 删除 数据 透视 图 的 图 例 并 设置 三 维 图 表 的 视角 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 用 于 删除 图 例 ， 并 设置 三 维 图 表 视 图 的 转角 和 仰角 为 30°。 


通用 ) v 


办 


' 删除 动态 数据 带 视 图 中 的 图 例 
hctiveChart. Legend. Select 
Selection. Delete 


" 设 首 二 维 图 表 视 图 的 转角 


ActiveChart. Rotation = 30 
' 设置 三 维 图 表 视 图 的 元 角 
ictiveChart. Elevyation = 30 
End Sub 


步骤 10” 自 定义 ReFresh0 过 程 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 更 新 数据 透视 表 和 数据 透视 图 。 


Ne 
sub ReFresh(lTname hs Strine) 
获取 指正 区 域 的 行 数 
Dim rowNum Ls Integer 
rowNunm = Ranzel’ hl1’).CurrentRegion. Rows. Count 
Vith WYorksheets (Tname). PivotTables (Tname) _ 


,ir Ac 
正 新 的 数据 区 域 
ee = ActiveSheet. Nane + _ 
I r” & CStrlrowNum) & “ce” 
数据 透视 表 


End W1ith 
ActliveWorkbook. ShowPlvotTableFieldList = False 
End Sub 


步骤 11 为 按钮 控件 指定 宏 。 返 回 Excel 视 图 ， 选 定 按钮 控件 ， 在 工作 表 的 适当 位 置 绘 制 ， 弹 出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 动 态 数据 透视 图 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 
定 ” 按 钮 。 


步骤 12 运行 指定 的 宏 。 返 


Co OO 


a 
二 HE 写 


产品 代码 
IP20070123 
IC20070133 
|C20070142 
1I20070156 
E20070160 
1S20070148 
|P20070160 
TI20070156 
IC20070133 
IC20070142 
1S20070148 


4 C20070133 


ee 
IP20070123 


i P20070160 


II20070158 
S20070148 


C D 
出 货 表 


_ 购 货 单位 数量 


世纪 风 前 


本 


单价 
¥ 2, 500 
4,500 
¥5,600 
¥1,500 
¥ 2, 000 
¥1, 800 
¥ 2, 000 
¥1,500 
¥ 4, 500 
¥5,600 
¥1,800 
¥ 4, 500 
¥5,600 
¥2,500 
¥ 2, 000 
¥1,500 
1,800 


回 工作 表 ， 将 按钮 控件 上 的 文本 修改 为 “创建 动态 数据 透视 图 ”， 并 激活 该 按钮 控件 。 单 击 该 按钮 以 运行 宕 ， 如 下 图 所 示 。 


购 货 日 期 
2018/1/20 
2018/1/20 
2018/1/20 
2018/1728 
2018/1/28 
2018/1/28 
2018/2/25 
2018/2/25 
2018/2/25 
2018/72729 
2018/2/29 
2018/2/29 
2018/ 3/1 
2018/; 3/1 
2018/; 3/1 
2018/3/9 
2018/3/9 


创建 动态 数 所 


步骤 13 ”查看 程序 执行 后 的 效果 。 系 统 自动 执行 指定 的 程序 ， 在 工作 簿 中 新 建 一 个 名 为 “动态 数据 透视 图 ”的 工作 表 ， 并 在 其 中 创建 了 数据 透视 表 和 数据 透视 图 ， 如 下 图 所 示 。 


od la Pia te 
9 Ci 中 

Tl 

P20OOTNL ES 
3 2 
dell 4 
总 计 


rm | 


LE || san 
T5000 
a 
15000 
4m} 


向 下 相 宽 向 上 帖 - 


1 50 
i120 
450] 


| 
1 3835 
EL 


芙 弄 牛 ” 志 守 风 的 


S00 ZU0L 
15810 2 这 入 
号 DJ SP 
?750 730r 
200 200C 
Ln 1 amb 
半生 1 说 自 本 了 侧身 


9.3.3 ”编写 代码 更 新 数据 透视 图 


完成 创建 动态 数据 透视 图 过 程 代 码 的 编写 后 ， 本 小 节 继续 编写 自动 更 新 数据 透视 图 的 过 程 代码 。 具 体操 作 如 下 。 


步骤 01 修改 单元 格 内 容 时 自动 刷新 数据 透视 表 与 数据 透视 图 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 在 “工程 
代码 段 ， 该 段 代码 用 于 在 修改 “出 货 表 ”工作 表单 元 格 内 容 时 自动 调用 “动态 数据 透视 图 ()” 过 程 。 


”世纪 月 
i 
A 华 率 虹 相 


i 


1 窗 


| = | 求 和 网 癌 晤 启 杆 


[| 撞 深 布 合照 古 


口中 双击 Sheet2 选 项 ， 在 打开 的 “sheet2 (代码 ) ”窗口 中 输入 如 右 图 所 示 的 


站 | 曙 
hal 中 可 | 响 和 庆生 | 革 - Le 
“uy a ! 一 


“mm ”mm 


' 更改 出 贷 表 数 据 时 ， 目 动 刷 新 数据 带 视 图 
Private Sub Worksheet 3 Target hs Range) 


' 检查 修改 的 单元 格 是 天 符合 条 1 
If Check (Target) Then 
动态 数据 透视 图 
End If 
End Sub 


"检查 是 天 修改 工作 表 
Function Check lain Ls Range) Ms Boolean 
' 修改 只 能 发 生 在 一 个 单元 
It aim.Count = 1 Then 
Check = True 
Else 
Check 
End I 
End Funct1on 


= False 


知识 链接 ”自动 更 新 数据 透视 图 
本 小 节 同 样 利用 在 更 改 半 元 格 内 容 时 触发 的 Worksheet_Change (ByVal Target As Range) 事件 ， 在 其 过 程 代 码 中 调用 之 前 编写 的 动态 数据 透视 图 过 程 ， 就 可 实现 自动 更 新 数据 透视 图 。 


步骤 02 ”修改 数据 透视 图 的 源 数据 。 返 回 Excel 视 图 ,切换 至 “出 货 表 ”工作 表 ， 在 出 货 记录 的 末尾 添加 2018 年 4 月 2 日 良缘 影楼 购买 打印 机 的 记录 ， 如 下 图 所 示 。 


贷 品 总 额 


党 日 期 


T2u00 1L56 
F200 rin 
oDTUl do 
FedNFULGN 
T2071o 
CaDDrUl3s 
Cail dd. 
oeUD TUl dd 
Le Tao 
Caidl de 
ed ee 
FE2OU TI 
L207U1o6 
oerUl 8 
F200 局 


壮美 
党 美 尺 楼 
洛 美 影 杰 

痊 旦 :在 
> 证 


化 飞 蜡 梯 
化 飞 影楼 
再 飞 影楼 
华 飞 影楼 
府 飞 影楼 
世纪 风韵 
世纪 风 前 
世纪 网 前 
世纪 内 前 
世纪 网 襄 
世纪 网 前 
民 绿 彩 楼 


J EU CO > DO CD Co 


a 
9, O00 
¥16, 800 
3, 000 
2, O00 
¥1, 800 
4, 000 
¥ 4, 500 
T1500 
¥11, 200 
1, 800 
¥27, O00 
¥22, 400 
7, S500 
¥ 2, 000 
9, O00 
1, 800 
8, 000 


2018/1 /20 
a ln 
od el 
a1erl 28 
20187 1 7 28 
LT 8 
人 0 
201872725 
201872725 
2018/ 2 29 
2018/ 2 29 
20187 2 29 

201873 门 

201873 门 

201873 门 

20187379 


20187379 
2018747 2 


步骤 03 ”自动 刷新 数据 透视 表 和 数据 透视 图 的 效果 。 在 修改 源 数 据 区 域 中 的 内 容 时 ， 系 统 会 自动 刷新 “动态 数据 透视 图 ”工作 表 中 的 内 容 ， 如 下 图 所 示 。 
让 B 
求 和 项 :货品 总 额 “ 列 标签 


C20070133 13500 49500 
IC20070142 11200 16800 50400 
T20070156 4600 3000 I 16500 
PaO0Or0l25 Ton 1 0 
P20070160 4000 2000 z 3000 16000 
S20070148 1800 1800 5400 
总 计 35000 40100 697' B8000 152800 


” 良 纤 昧 楼 
ag ee -世纪 风韵 
“党 闫 昧 补 
We 


读书 笔记 


第 10 章 ”员工 出 差 沼 理 系 统 


本 章 将 使 用 Excel VBA 的 用 户 窗 体 及 程序 代码 制作 一 个 简单 的 员工 出 差 管理 系统 ， 该 系统 的 主要 功能 为 : 能 以 对 话 框 交互 的 方式 录入 出 差 信 息 ， 并 自动 根据 公司 的 出 差 规 定 计 算 预 支 费 用 ; 能 根据 录入 
的 出 差 行程 设置 提醒 ， 在 打开 工作 簿 时 会 自动 弹出 对 话 框 显示 即将 到 来 的 出 差 行程 ， 能 快速 显示 当天 在 外 出 差 的 人 员 ， 以 便 进行 人 员 调 配 。 


10.1 ”交互 式 录 入 出 差 记录 


前 面 的 实例 中 介绍 过 如 何 使 用 VBA 代 码 实现 交互 式 录入 信息 ， 本 节 将 使 用 Excel VBA 用 户 窗 体 实现 出 差 信息 的 交互 式 录 入 ， 表 根据 公司 制定 的 预支 费用 规定 ， 计 算出 差 的 预支 费用 。 


要 码 看 视频 


he 


Ld 上 : 实例 文件 \ 第 10 章 \ 原 始 文 件 \ 员 工 出 差 管 理 系 统 .xlsx 


: 实例 文件 \ 第 10 章 \ 最 终 文件 \ 交 互 式 录入 出 差 记录 .xlsm 


要 实现 交互 式 录 入 出 差 信 息 ， 首 先 需 要 设计 一 个 合理 的 “出 差 信 息 录 入 ”用 户 窗 体 作为 信息 载体 。 具 体操 作 如 下 。 


| 打开 工作 短 。 打 开 原 始 文件 ， 在 其 中 的 “出 差 记 录 ” 工 作 表 中 已 录入 了 员工 出 差 记录 的 标题 和 列 字段 名 称 ， 如 下 图 所 示 。 


C D 
员工 出 老 记 录 
出 差 和 ”出差 地 点 出 差 时 间 | 预计 返回 时 间 | 预支 费用 


Sheet2 | Sheet3 | 


| 田 台 Solyer (SOLYEE.XLAE) 

直角 YBAProject (FUHCEES. ILAN) 

:YBhAProject (员工 出 差 邮 ogi 六 

日 - 留 聘 orosoft Excel 对 鲁 

-- 转 |] Sheetl (出 差 记 录 国 | 
- 转 | Sheet2 (Sheet2) 

有 Sheet3 (Sheet3) 

… 嘱 |] Thi sWorkbook ] 


白 - 轩 模块 
-… 慌 模 块 1 


步骤 03 ”修改 用 户 窗 体 的 属性 。 打 开 用 户 窗 体 的 “属性 ”窗口 ,设置 ”( 名 称 ) ”属性 为 OutRecord、Caption 属 性 为 “出 差 信 息 录 入 ”、Font 属 性 为 “微软 雅 黑 ”， 如 下 左 图 所 示 。 


OutRecord UserForm 


按 字 母 序 “” 按 分 类 序 
(名 称 ) 

BackColor 

Bor derColor 
BorderStyle 
Capt1 on 

Cycle 


DutRecord 

0O whHso00000F4 

国 $800000128& 

0 — fmBorderSty]eNone 
出 差 信 息 东 八 


0 一 fnCycleAlForms 


Dr awBuffer 


Enabled 


KE ont 
ForeColor 

He1 zht 

HelpC ontextID 


32000 
True 


微软 雅 里 


国 tH30000012& 
180 
0 


T 


KeepScrollBarsYisible 3 一 fmScrollBarsBoth 


Left 


步骤 04 


二 


FEED 


步骤 05 ”绘制 框架 控件 。 在 工具 箱 中 单 击 “ 框 加 ”按钮 ， 然 后 在 用 户 窗 体 对 象 窗口 中 绘制 3 个 框架 ， 


查看 设置 用 户 窗 体 属性 后 的 效果 。 在 “属性 ”窗口 中 更 改 相 应 的 属性 后 ， 在 用 户 窗 体 对 象 窗口 中 可 以 即时 查看 更 改 后 的 效果 ， 如 下 右 图 所 示 。 


HE 


和 


并 且 分 别 将 框架 控件 的 Caption 属 性 更 改 为 “事由 ” 


“人 员 、 地 点 ” 


“往返 日 期 ”， 如 下 图 所 示 。 


， 册 村 可 对 下 号 晶 齐 四 车 


EE 


步骤 06 绘制 标签 控件 并 修改 其 属性 。 在 用 户 窗 体 对 象 窗口 的 “事由 ”框架 中 绘制 一 个 标签 控件 ， 并 打开 其 “属性 ”窗口 , 设置 ”( 名 称 ) ”属性 为 Cevent，Caption 属 性 为 空 ，Font 属 性 为 华文 楷 
体 、 粗 体 、 小 四 ， 如 下 图 所 示 。 


按 字 母 记 ” 按 分 类 序 

(名 称 ) Cevent 

IAccel erator ] 

AutoS1ize IFalse 

| 口 8HB000000F& 

| 1- tmbackStyleDpaque 
国 6H800000066 
0 一 fmBorderStyleNone 


IEnabled True 

eCol 夯 &H30000012& 
es DO 
|HelpContextID 0 


步骤 07 绘制 其 余 的 标签 。 用 相同 的 方法 在 其 他 两 个 框架 控件 中 绘制 需要 的 标签 ， 并 根据 下 表 设 置 标签 的 属性 ， 如 右 图 所 示 。 


“返回 日 期 


名 称 属 性 和 Font 属性 
nk ee Ek i 华文 楷体 、 粗 体 、 小 四 
”2 | rabelt | 出 差 人 员 | 微软 牙 黑 粗 体 五 号 
”3 | rabel2 | 出 差 地 点 | 微软 雅 黑 、 粗 体 、 五 号 


”4 | labe3 | 前往 B 期 | 微软 雅 黑 、 、 粗 体 ,五 号 
微软 牙 黑 、 粗 体 、 五 号 


步骤 08 绘制“ 人员、 地 点 ”中 的 文本 框 控 件 。 在 工具 箱 中 单 击 “ 文 本 框 ” 按 钮 ， 在 “人 员 、 地 点 ”框架 中 绘制 文本 框 ， 然 后 根据 下 表 设 置 控件 的 属性 ， 如 右 图 所 示 。 


下 和 噶 全 卓 是 时 中 目 到 避 全 宣 中 是 中 中 业 由 宣 昌 中 下 时 避 到 遇 中 目 中 目 


名 称 属 性 Font 属性 


EEC 华文 楷体 、 粗 体 、 小 四 
2 | addressi 华文 楷体 、 粗 体 、 小 四 


步骤 09 绘制 “往返 日 期 ”中 的 文本 框 控 件 并 为 其 赋予 初始 值 。 在 用 户 窗 体 中 的 适当 位 置 绘制 文本 框 控件 ， 并 按照 下 表 设 置 文本 框 控 件 的 属性 ， 如 右 图 所 示 。 


名 称 属性 Font 属性 Text 属性 


序号 
华文 楷体 、 粗 体 、 
”2 | monthl | 华文 楷体 、 粗 体 、 这 IE 
华文 楼 体 、 粗 体 、 小 四 | ol 
year2 华文 楷体 、 粗 体 、 
华文 楷体 、 粗 体 、 小 四 | 01 | 
NE i 


day2 华文 楷体 、 粗 体 、 


步骤 10 ”绘制 旋转 按钮 。 在 工具 箱 中 单 击 “ 旋 转 按钮 ”控件 ， 然 后 在 适当 的 位 置 绘制 旋 转 按钮 控件 ， 并 按照 下 表 设 置 旋转 按钮 控件 的 属性 ， 如 右 图 所 示 。 


可 更 各 囊 重 吾 本 更 下 中 更 是 


知识 链接 ”旋转 按钮 控件 


旋转 按钮 控件 允许 用 户 通过 单 击 向 上 或 向 下 箭头 来 递增 或 递减 一 个 数值 。 该 控件 常 与 其 他 控件 联 用 ， 通 过 编写 VBA 代 码 在 其 他 控件 中 动态 显示 旋转 按钮 控件 的 数值 。 


步骤 11 ”绘制 按钮 控件 。 用 前 面 绘制 标签 的 方法 ， 在 适当 的 位 置 绘制 标签 ， 并 将 其 Caption 属 性 分 别 更 改 为 “年 ”“ 月 ”“ 日 ”， 然 后 绘制 按钮 控件 ， 并 按照 下 表 更 改 其 相应 的 属性 值 ， 如 右 图 所 示 。 
最 后 将 该 工作 簿 男 存 为 “交互 式 录入 出 差 记 录 .xlsm”。 


名 称 属 性 ER Font 属性 


EE ES 微软 雅 黑 、 粗 体 、 五 号 
微软 雅 黑 、 粗 体 、 五 号 


10.1.2 ”编写 控件 的 对 应 事件 代码 


设计 好 “出 差 信息 录入 ”用 户 窗 体 后 ， 还 需 为 窗 体 中 的 各 控件 添加 相应 的 事件 代码 ， 才 能 互 式 录入 出 差 信 息 的 功能 。 具 体操 作 如 下 。 


步骤 01 ”为 旋转 按钮 添加 相应 的 代码 。 继 续 上 一 小 节 的 操作 ， 双 击 旋转 按钮 控件 ， 打 开 “OutRecord (代码 ) ”窗口 ， 输 入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 将 “前 往日 期 ”中 旋转 按钮 获取 的 值 赋 
给 相应 的 文本 框 变 量 


' 设置 前 往日 期 中 的 日 

Private Sub Sdayl_Change©0 
dayl = Sdayl 

End Sub 


四 


你 下 刚 往 日 期 中 的 月 父 
Private Sub Smonthl_Changel) 


monthl = Smonthl 

End sub _ 

设置 前 往日 其 中 的 3 

Private Sub Syearl Chanee0) 
Yearl] = vyearl 

End Sub 


步骤 02 将 “返回 日 期 ”中 旋转 按钮 的 值 赋 给 相应 的 文本 框 变量 。 在 “OutRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 与 前 一 段 代 码 相 似 ， 用 于 将 “返回 日 期 ”中 旋转 按钮 的 值 
赋 给 相应 的 文本 框 变量 。 


"设置 返回 日 期 中 的 日 
Private Sub Ce 


n 

ee ee pi Change 0 
和 onth2 = Smonth2 

End sub 
雪 百 】 x 加 | 吕 由 FE q] 日 ] 所 

Private sub 人 Chaneel) 
Vear2 = oyeare 

End Sub 


步骤 03 为 “取消 ”按钮 添加 相应 的 代码 。 在 “OutRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 在 用 户 单 击 “取消 ”按钮 时 关闭 用 户 窗 体 。 


定 头 变量 保存 当前 行 亏 
Public rowindex hs Integer 
取消 拥 帮 对 应 的 事件 代码 ， 用 于 关闭 用 户 面 全 
Private Sub Cancel_Click 
"天 财 用 尸 窗 体 
Me. Hide 
End sub 


步骤 04 为 “确定 ”按钮 添加 相应 的 代码 。 在 “OutRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 OK_Click0 过 程 的 第 1 部 分 代码 ， 主 要 用 于 获取 在 用 户 窗 体 中 选取 的 往返 日 期 。 


EE -一 一 一 


a 


A 


了 生生 人 站 本 保生 和 二 和 
Private Sub OK ClickO 

Din aln hs Worksheet 

Set aim = Worksheets (“出差 记录 “) 


' 定 变 量 存储 前 往日 期 和 返回 日 期 
Dim returnDate hs Strine 


Dim outDate As Strin 
将 用 户 输入 的 年 、 月 、 白 组 合成 一 个 人 字符 
outDate = CStr(yearl.Value) 十 “一 

CStr tnonthl. Value) 二 “一 ”十 cstr (dey Value) 
returnDate = CStrtyear2. Yalue) +“ 一 

CStr (nonth2. Value + -+ Cstr (day2. Yalue) 


步骤 05 ”将 用 户 窗 体 的 值 写 入 适当 的 单元 格 中 。 在 “OutRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 OK_Click0 过 程 的 第 2 部 分 代码 ， 主 要 用 于 将 用 户 窗 体 中 的 信息 及 预支 费用 
写 入 工作 表 中 。 


将 用 户 答 六 的 内 容 写 入 这 当 的 单元 格 中 
aim.Cells(rowindex，2) = namel. Yalue 
ain.Cells(rowindex，3) = addressl.Value 
ainm. Cells (rowindex, 4 = CDate(outDate) 
ainm.Cells (rowindex, 5) = CDatetreturnDate) 
aim.Cells(lrowindex, 0 = 

funds (returnDate, outDate) 


aim.Cells (rowindex, ©.NumberFormat =“0.00 元 ” 
' 写 入 元 六 后 关闭 用 户 窗 体 
Ne. Hide 

End sub 


步骤 06 自 定义 funds0 函 数 。 在 “OutRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 根据 公司 出 差 制度 计算 预支 费用 。 其 中 ， 使 用 DateDiff0 函 数 计算 两 个 日 期 的 天 数 差 值 。 


"计算 预 交 费用 
Function funds (aa 上 As String，bb As Strine) 
hs Single 
funds = 0 
Dim days &s Integer 
days = DateDiff(’d’, bb, aa) 


' 每 天 定额 预 交 费用 
Din oneday As Single 
假设 每 人 每 天 预 妆 佳 窒 络 50 邢 ; 
生活 费 30 元 ， 区 通 费 与 电话 费 共 计 60 元 
oneday = 50 + 30 + 60 
tunds = oneday +* days 
End Function 


知识 链接 ”使 用 DateDiff() 计 算 日 期 差 
使 用 后 一 个 日 期 减 前 一 个 日 期 可 以 获取 两 个 日 期 间 的 天 数 差 。 而 Excel VBA 提 供 的 DateDiff0 浮 数 功能 更 加 丰富 ， 它 可 以 计算 两 个 日 期 间 的 小 时 差 、 天 数 差 、 星 期 差 和 月 数 差 等 。 


步骤 07 编写 代码 初始 化 用 户 窗 体 。 在 “OutRecord (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 是 初始 化 用 户 窗 体 的 前 半 部 分 代码 ， 主 要 用 于 将 工作 表 中 输入 的 事由 显示 在 用 户 窗 体 
中 作为 提示 。 


窗 悚 显示 前 目 动 初始 化 用 户 窗 体内 容 
Private Sub UserForm hctivateOQ 
Din aln hs WVorksheet 


Set aim = Worksheets ("出 差 记 录 ”) 


狭 取 用 户 窗 体 中 事由 的 值 
Din Eventname Ls Strine 
Eventname = ainm.Cellslrowindex, 1).VYalue 
Cevent. Caption = Eventname 


步骤 08 为 “往返 日 期 ”中 的 文本 框 赋 初 值 。 在 “OutRecord (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代码 是 初始 化 用 户 窗 体 的 后 半 部 分 代码 ， 主 要 使 用 日 期 函数 为 “往返 日 期 ”中 的 
相应 文本 框 赋 初 值 。 


初始 化 用 户 窗 二 中 的 往返 日 期 值 
yearl. Value = Year(t 2018-01-01’) 
monthl. Value = Month(” 2018-01-01’) 


dayl. Yalue = Day( 2018-01-01 ) 
year2. Yalue = Year( 2018-01-01 ) 
nonth2. Value = Jontht 2018-01-01” 
day2. Value = Day( 2018-01-01 ) 


时 应 


mamel.yalue = 
addressl.Value = 记 冰 
End Sub 


重点 语法 与 代码 剖析 : DateDiff() 函 数 的 用 法 

DateDiftO 函 数 用 于 返回 两 个 指定 日 期 间 的 时 间 间 隔 数 。 其 语法 格式 为 : DateDiff (interval，datel1，date2[，firstdayofweek[，fitstweekofyeat]]) 。 其 中 ，intetval 是 必需 参数 ， 用 于 指定 计算 date1 和 date2 的 时 
间 差 的 形式 ， 其 形式 为 字符 串 表 达 式 ; date1 和 date2 是 必需 参数 ， 用 于 指定 计算 中 需要 用 到 的 两 个 日 期 ， 其 数据 类 型 为 日 期 型 ; fitstdayofweek 是 可 选 参 数 ， 用 于 指定 一 个 星期 的 第 1 天 的 常数 ， 如 果 未 指定 ， 则 
以 星期 日 为 第 1 天 ; firstweekofyeat 是 可 选 参 数 ， 用 于 指定 一 年 的 第 1 周 的 常数 ， 如 果 未 指定 ， 则 以 包含 1 月 1 日 的 星期 为 第 1 周 。intetval 参 数 的 设 定 值 请 查找 相关 的 帮助 文件 。 

步骤 09 ”修改 工作 表 中 第 1 列 的 内 容 时 自动 执行 OutRecord 用 户 窗 体 。 在 “工程 ”窗口 中 双击 “Sheet1 (出 差 记 录 ) ”选项 ， 在 打开 的 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 并 保存 ， 该 段 代 码 用 于 在 修 
改 第 1 列 内 容 时 自动 执行 OutRecord 用 户 窗 体 。 


Porksheet ww 


在 工作 表 中 修改 内 容 时 自动 执行 
Private Sub Worksheet Chanee _ 
yy el Torset hs ee 


(BE 

" 铺 认 修改 发 生 在 第 一 列 

" 且 只 修改 了 一 个 单元 格 

It Target.Column = 1 hnd Target.Count = 1 Then 
OutRecord. rowindex = Target. ROW 
OutRecord. Show 

End I+t 

End Sub 


步骤 10 自动 执行 OutRecord 用 户 窗 体 。 返 回 Excel 视 图 ， 在 单元 格 A3 中 输入 “联系 客户 ”， 按 Enter 键 后 自动 弹出 “出 差 信息 录入 ”对 话 框 ， 如 下 图 所 示 。 可 以 在 该 对 话 框 中 看 到 “前 往日 期 ”和 “ 返 
回 日 期 ”的 默认 值 ， 即 之 前 代码 中 设置 的 初始 值 。 


前 往日 期 | 2018 当年 |1 习 月 |1 省 日 
返回 日 期 | 2018 当年 |1 二 月 |1 必 日 


击 “ 确 定 ” 按 钮 。 


前 往日 期 | 2018 ” 习 年 [1 悦 月 [5 本 日 
返回 日 期 | 2018 习 年 | 1 习 月 | 20- 


步骤 12 ”查看 录入 信息 后 的 效果 。 返 回 工 作 表 ， 可 以 看 到 在 “联系 客户 ”所 在 行 的 相应 单元 格 中 显示 了 在 “出 差 信息 录入 ”对 话 框 中 输入 的 信息 ， 如 下 右 图 所 示 。 


C D | 
员工 出 差 记录 
”事由 出 差 和 A 出 差 地 点 出差 时 间 预 秆 返回 时 间 
联系 寄 户 刘 恒 上 海 2018/1/5 2018/1/20 


sheet2 sheet3 


Cc D 
员工 出 差 记 录 

事由 出 差 人 ”出差 地 点 。 出 差 时 间 预计 返回 时 间 
联系 寄 户 刘 恒 海 2018/1/5 2018/1/20 
技术 如 流 刘 年 2018/1/5 2018/1/20 
等 约 合 回 未 内 ; 2018/1/6 2018/1/10 
分 公司 邮 查 谢 鹏 京 2018/1/10 2018/1/20 
联系 窗户 了 天明 了 2018/2/20 2018/2/28 


出 差 记 录 | Sheet2 | Sheet3 


在 管理 出 差 信息 时 ， 对 员工 的 出 差 行程 进行 提醒 设置 ， 将 有 助 于 提前 做 好 工作 安排 和 出 差 准 备 。 本 节 将 在 上 一 节 的 基础 上 实现 提醒 功能 ， 将 用 户 通过 用 户 窗 体 添加 的 提醒 设置 写 入 工作 表 的 相应 单元 格 
中 ， 并 在 打开 工作 簿 时 根据 系统 当前 时 间 、 出 差 行 程 信息 和 提醒 设置 自动 弹出 提醒 信息 、。 


扫 码 看 视频 


~ 


: 实例 文件 \ 第 10 章 \ 原 始 文件 \ 交 互 式 录入 出 差 记 录 .xlsm 


;实例 文件 \ 第 10 章 \ 最 终 文件 \ 出 差 行 程 提醒 .xlsm 


本 小 节 首 先 设 计 “ 设 置 提醒 ”用 户 窗 体 ， 作 为 用 户 设置 提醒 的 界面 ， 接 着 编写 相应 的 事件 代码 ， 将 用 户 添加 的 提醒 设置 写 入 工作 表 ， 并 在 用 户 选择 A 列 中 有 数据 的 单元 格 时 自动 运行 “设置 提醒 ”用 户 
窗 体 。 


打开 工作 短 。 打 开 原始 文件 ， 并 将 其 另存 为 “出 差 行 程 提 醒 .xlsm” 工 作 短 ， 在 “出 差 记录 ”工作 表 中 的 数据 列 后 添加 “提醒 日 期 ”和 “间隔 ”字段 ， 如 右 图 所 示 。 


D 
员工 出 差 记录 
事由 出 甘 人 人 出 站 地 碟 。 出 闪 时 间 预计 返回 时 间  。 预 闷 费用 提醒 日 期 间隔 
联系 客户 阳 | 恒 上 海 201B/1/5 2019/1/20 21D0. DD 元 
技术 下流 刘 星 天津 201B/1/5 2019/1/20 2100. ODT 
交 关 | 吾 问 瓜 司 上 海 201B/1/6 2019/1/10 560. oD 元 
条 公明 种 查 放 蝎 北 页 20187r1/10D 201911 /20 1400. oD 元 
联系 吝 户 补 昌 起 : 2018727120 2019/2/28 1120. 90 元 


Od 


出 差 记 录 | Sheet2 | Sheet3 | 加 


步骤 02 插入 新 用 户 窗 体 。 右 击 “ 工 程 ” 窗 口中 的 “VBAProject (出 差 行程 提醒 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 用 户 窗 体 ”命令 ,然后 在 “属性 ”窗口 中 设置 ”( 名 称 ) ”属性 为 
Remind、Caption 属 性 为 “设置 提醒 ” ， 得 到 的 效果 如 下 图 所 示 。 


步骤 03 ”为 用 户 窗 体 添 加 控件 。 用 上 一 节 中 的 方法 ， 在 “设置 提醒 ”用 户 窗 体 对 象 窗口 中 绘制 需要 的 控件 ， 并 按照 下 表 设 置 用 户 窗 体 中 的 控件 ， 得 到 如 下 图 所 示 的 效果 。 


框架 | Framel | 事件 | 微软 雅 黑 、 粗 体 、 五 号 
微软 牙 黑 、 粗 体 、 五 号 


控件 名 称 名 称 属性 Caption 属性 Font 属性 
微软 雅 黑 、 粗 体 、 五 号 
日 


时 
微软 牙 黑 、 常 规 、 五 号 
命令 按钮 | OK | 确定 | 微软 雅 黑 、 粗 体 、 小 四 


确 
微软 雅 黑 、 粗 体 、 小 四 


架 、 
签 
微软 雅 黑 、 粗 体 、 五 号 
架 、 
rt 
Ti 
架 、 
选项 按钮 间隔 1 小 微软 雅 黑 、 常 规 、 五 号 
他 Py 


pc fr 
PS DT 
提醒 头 
复 选 杠 设置 提醒 微软 雅 黑 、 粗 体 、 五 号 
微软 雅 黑 、 粗 体 、 五 号 
El jr 
Ee DT 
瑟 
定 
消 


框 
框 
框 
偿 巩 
人 迹 巩 
微软 雅 黑 、 粗 体 、 五 号 
选项 
和 偿 巩 
命令 
> 


选项 按钮 提前 两 日 微软 雅 黑 、 常 规 、 五 号 


1 几 

选项 按钮 微软 牙 黑 、 常 规 、 五 号 
EA 几 、 
dd 几 、 


知识 链接 ” 复 选 框 控件 
复 选 框 控件 通常 用 于 控制 某 个 选项 的 打开 或 关闭 ， 让 用 户 进行 “ 真 / 假 ”“ 是 / 否 ”等 的 选择 。 在 同一 级 别 上 可 有 多 个 复 选 框 控件 ， 用 户 可 分 别 做 出 不 同 的 选择 。 


步骤 04 编写 “取消 ”按钮 对 应 的 过 程 人 代码。 双击“ 取消” 按钮 ， 打 开 “Remind (代码 ) ”窗口 ， 在 该 窗口 中 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 于 关闭 用 户 窗 体 。 需 要 注意 的 是 ， 在 编 
写 “ 取 消 ” 按 钮 对 应 的 过 程 之 前 定义 了 全 局 变量 rowindex。 


TO-| 攻 


| i 童 RowIndex， 
用 于 行人 以 当前 单元 格 的 行 亏 
Public rowindex AS Integer 
“取消 拥 所 对 应 的 事件 过程 ， 用 于 关闭 用 户 面 人 
Private Sub Cancel ClickO 


Ne. Hide 
End sub 


步骤 05 编写 初始 化 用 户 窗 体 的 代码 。 在 “Remind (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 为 初始 化 用 户 窗 体 的 前 半 部 分 代码 ， 主 要 用 于 为 用 户 窗 体 中 的 Event1 和 OutDate1 两 个 标 
签 的 Caption 属 性 赋值 ， 将 指定 信息 显示 在 用 户 窗 体 中 。 


-初始 化 用 户 窗 体 的 默认 值 
Private Sub UserForn Activatel) 
Dim Sht As Worksheet .| 
Set Sht = Worksheets (“出 着 记录 ” 
' 定义 变量 存 依 事由 及 出 差 时 间 


Dim EventB As String 
Dim Outl As Strine 
EventB = “出 差事 由 : ”+ Sht.Cells _ 
(rovipdey 1). Cp 


Outl eh Cells _ 
EO et 


体 中 捕 商 中 术 的 Caption 属 性 岂 值 
bn ob = EventB 
OQutDatel. Caption = OQutl 


步骤 06 设置 选项 按钮 的 默认 值 。 在 “Remind (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 为 初始 化 用 户 窗 体 的 后 半 部 分 代码 ， 主 要 用 于 设置 “提醒 ”选项 组 中 的 默认 选项 按钮 ， 以 
及 “提醒 日 期 ”和 “间隔 ”选项 按钮 初始 值 为 不 可 用 状态 。 


用 同和 提 本 且 迁 证 站 于 和 个 
Warn. Value = Fal 

设置 提醒 日 期 的 默认 选项 
Datel.Value = 


Datez, Value = Fa 
性 旷 提 杖 汪 的 初始 名 坊 为 不 可 用 


Datel. Enabled = False 
Date2. Enabled = False 
"设置 提醒 间隔 的 默认 选项 
Hourl. Yalue = dm jh 
Hour2. Yalue = Fal 
设置 提醒 间隔 的 初始 状态 为 不 可 用 
Hourl. Enabled = False 
Hour2. Enabled = False 
End Sub 


< 


步骤 07 编写 “设置 提醒 ” 复 选 框 对 应 的 过 程 代码 。 在 “Remind (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 为 复 选 框 对 应 过 程 的 前 半 部 分 代码 ， 主 要 用 于 判断 当 复 选 框 的 值 为 假 时 ， 
设置 “提醒 日 期 ”和 “间隔 ”选项 按钮 为 不 可 用 状态 。 


在 复 选 框 的 内 容 修 改 后 自动 执行 
Private Sub Warn_Click 
' 根据 复 选 框 的 内 浴 进 行 判 断 
li Warn. Value = False Then 
日 期 选项 按钮 不 可 用 
Datel. Enabled = False 


Datez. EnaDled = False 
' 则 隔 选 项 按钮 不 可 用 

Hourl. Enabled = False 
Hour2. Enabled = False 


步骤 08 设置 “提醒 日 期 ” “间隔 ”选项 按钮 为 可 用 状态 。 在 “Remind (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 为 复 选 框 对 应 过 程 的 后 半 部 分 代码 ， 主 要 用 于 判断 当 复 选 框 的 值 为 
真 时 ,设置 “提醒 日 期 ”和 “间隔 ”选项 按钮 为 可 用 状态 。 


El 


End 


知识 链接 ”控件 的 Enabled 属 性 


控件 的 Enabled 属 性 用 于 指定 一 个 控件 能 否 接收 焦点 和 响应 用 户 产 生 的 事件 。 当 Enabled 属 性 为 True 时 ， 该 控件 可 接收 焦点 并 响应 用 户 产生 的 事件 ， 而 且 能 通过 代码 访问 ; 当 Enabled 属 性 为 False 时 


se 

"日 期 选项 按钮 可 用 
Datel. Enabled = True 
Date2. Enabled = True 
` 则 隔 选 项 按钮 可 用 
Hourl. Enabled = True 
Hour2. Enabled = True 


End I 


sub 


示 为 灰色 ， 表 示 无 效 ， 不 能 使 用 鼠标 、 键 盘 操作 该 控件 ， 但 通常 仍 可 通过 代码 访问 该 控件 。 


， 控 件 显 


步骤 09 编写 “确定 ”按钮 对 应 的 过 程 代码 。 在 “Remind (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 为 OK_Click0 过 程 的 第 1 部 分 代码 ， 主 要 用 于 获取 出 差 日 期 ， 以 及 判断 是 否 需要 添加 提 


醒 。 


' 确定 按钮 对 应 的 事件 过 程 
Private Sub Ok Click 人 0) 
声明 变量 存 情 工作 表 
Le Sht Ls Worksheet 
t Sht = Worksheets( ”出差 记录 ”) 
自明 赤 量 存 售 出 天 着 庆 
Dim Out2 hs Strine 


Out2 = Sht. Cells (rowindex, 4) .Value 
' 根据 复 选 框 控 件 的 值 ， 快 定 是 否 需 要 添加 提醒 
It Warn.Value = False Then 
Sht.Cells(lrowindex, 7) = *" 
Sht.Cells(rowvindex, 8) = "” 
Me. Hl de 
Exlt Sub 
End I 


步骤 10 ”获取 提醒 的 实际 日 期 。 在 “Remind (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 为 OK_Click0 过 程 的 第 2 部 分 代码 ， 主 要 用 于 判断 用 户 选取 的 提醒 日 期 ， 然 后 根据 出 差 日 期 计算 
提醒 的 实际 日 期 。 


声明 变 童 存 情 提 酝 的 提前 日 期 
Dim Days AS Integer 
If Datel.Value = True Then 
Days = 2 
Else 
It Date2. Yalue = True Then 
Days = 1 


End If 


End I+ 
-计算 提 柄 的 交际 日 期 
Sht.Cells(rowindex，7 = CDate(Out2) - Days 


步骤 11 获取 提醒 的 间隔 时 间 。 在 “Remind (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 为 OK_Click0 过 程 的 第 3 部 分 代码 ， 主 要 用 于 判断 用 户 选取 的 间隔 时 间 ， 然 后 将 其 转换 成 字符 
型 ， 并 写 入 相应 的 单元 格 中 。 


"声明 变量 存储 提醒 的 间隔 

Dim Space hs Integer 

It Hourl. Value = True Then 
space = 1 

Else 
It Hour2. Yalue = True Then 

Space = 2 

End I 


End It+ 
' 将 用 户 的 选择 与 六 工作 表 
Sht.Cells (rowindex，8) = CStr(Space) +“ 小 时 ” 
' 才 闭 窗 体 
Me. Hl de 
End Sub 


* 


步骤 12 编写 选择 第 1 列 有 数据 的 单元 格 时 自动 执行 “设置 提醒 ”用 户 窗 体 的 代码 。 双 击 “工程” 窗口 中 的 “Sheet1 (出 差 记 录 ) ”选项 ， 在 打开 的 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 并 保存 ， 该 段 
代码 用 于 在 选择 第 1 列 有 数据 的 单元 格 时 自动 执行 “设置 提醒 ”用 户 窗 体 。 


EE 


SelectionChanege 


" 丫 击 选择 工作 素 中 的 第 一 列 中 有 数据 的 里 元 格 时 目 动 执行 
Private Sub Worksheet_Selectionchange _ 

(ByVal Target hs Rangee) 

Dim rownum Ls Integer 

Dim Sht As Worksheet 

Set Sht = Worksheets(” 山 兰 记录 ) 


rownun = Sht.Range al .CurrentRegion. Rows. Count 


It ne Row “= rownun Then 
If (Target.Count = 1) And (Target.Column = 1) Then 
创建 设 着 提醒 窗 体 Renind 
Dim myRemind As Renind 
Set myRemind = New Remind 
myRenind, rowindex = Target,. Row 
myRenind. Show 
Set nyRemind = Nothine 
End It+ 
End I+i 
End Sub 


步骤 13 运行 “设置 提醒 ” 窗 体 。 返 回 Exce| 视 图 ， 单 击 A 列 中 有 数据 的 单元 格 。 例 如 ， 单 击 单元 格 A3， 即 可 弹出 “设置 提醒 ”对 话 框 ， 如 右 图 所 示 。 注 意 : 单 击 A 列 中 没有 数据 的 单元 格 时 ， 将 不 会 弹 
“设置 提醒 ”对 话 框 。 


可 可 可 可 可 


间隔 


提前 两 日 上 间隔 1 小 时 


(提前 一 日 全 间隔 2 小 时 


步骤 14 查看 “设置 提醒 ”对 话 框 。 在 如 下 图 所 示 的 “设置 提醒 ” 对话 框 中 可 以 看 到 该 对 话 框 的 初始 化 效果 ， 即 显示 事件 信息 ， 且 单 选 按钮 为 不 可 用 状态 。 


步骤 15 ”设置 事件 的 提醒 信息 。 在 “设置 提醒 ”对 话 框 中 ， 勾 选 “ 设 置 提醒 ” 复 选 框 ， 在 “提醒 日 期 ”选项 组 中 选择 “提前 一 日 ” 单 选 按钮 ， 在 “间隔 ”选项 组 中 选择 “间隔 2 小 时 ” 单 选 按钮 ， 单 
击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


出 差事 由 : 联系 客户 出 差 时 间 : 2018/1/5 


间隔 
( 间隔 1 小 时 


f 间隔 2 小 时 


各 


步骤 16 查看 设置 提醒 后 的 效果 。 返 回 工作 表 ， 可 以 看 到 在 “提醒 日 期 ”和 “间隔 ”字段 下 的 相应 位 置 添 加 了 刚才 在 “设置 提醒 ”对 话 框 中 设置 的 值 ， 如 下 图 所 示 。 


预 秆 返回 时 间 预支 费用 提醒 日 期 间隔 
2018/1/20 2100. 00 元 20187174 2 小 时 


2018/1/20 2100. 00 元 
2018/1/10 560. 00 元 
2018/1/20 1400. 00 元 
2018/2/28 1120. 00 元 


步骤 17 设置 其 余 事 由 的 提醒 日 期 和 间隔 时 间 。 用 相同 的 方法 设置 其 余 事 由 的 提醒 日 期 和 间隔 时 间 ， 如 下 图 所 示 。 


LD 

差 记 录 

出 差 时 间 | 预计 退回 时 间 预 交 茵 用 提醒 日 期 间隔 
2018/1/5 2018/1/20 2100. 00 元 2018/1/4 2 小 时 
2018/1/5 2018/1/20 2100. 00 元 2018/1/3 1 小 时 


2018/1/6 2018/1/10 560. 00 元 2018/1/5 2 小 时 
2018/1/10 2018/1/20 1400. 00 元 2018/1/8 2 小 时 
2018/2/20 2018/2/28 1120. 00 元 2018/2/19 1 小 时 


10.2.2 ”编号 代码 实现 自动 提醒 


本 小 节 接 着 设计 “提醒 ”用 户 窗 体 ， 并 编写 相应 的 触发 事件 代码 ， 达 到 自动 提醒 出 差 行程 的 目的 。 具 体操 作 如 下 。 


步骤 01 设计 “提醒 ”用 户 窗 体 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 右 击 “ 工 程 ”窗口 中 的 “VBAProject (出 差 行程 提醒 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 用 户 窗 体 ”命令 ， 
在 “属性 ”窗口 中 设置 ” (名 称 ) ”属性 为 WarnBox、Caption 属 性 为 “提醒 ” ， 然 后 在 其 中 绘制 需要 的 控件 ， 并 按照 下 页 表 设 置 各 控件 属性 ， 得 到 如 右 图 所 示 的 效果 。 
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序号 控件 名 称 名 称 属 性 Caption 属性 Font 属性 
微软 雅 黑 、 粗 体 、 五 号 
微软 雅 黑 、 粗 体 、 五 号 


微软 雅 黑 、 粗 体 、 五 号 
命令 按钮 微软 雅 黑 、 粗 体 、 小 四 


知识 链接 “使 用 Caption 属 性 显示 提醒 信息 文本 


Caption 属 性 表示 在 对 象 中 出 现 的 ， 用 于 标识 或 说 明 该 对 象 的 文本 。 自 动 提醒 时 ， 可 使 用 标签 控件 的 Caption 属 性 显示 提醒 信息 文本 。 


步骤 02 编写 “确定 ”按钮 对 应 的 过 程 代 码 并 显示 “提醒 ” 窗 体 的 值 。 双 击 “ 确 定 ” 按 钮 ， 打 开 “WarnBox (代码 ) ”窗口 ， 在 该 窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 包括 两 部 分 ， 一 部 分 
为 “确定 ”按钮 对 应 的 过 程 ， 另 一 部 分 用 于 自动 将 查找 到 的 值 显示 在 用 户 窗 体 中 。 


- 一 天 二 一 


加 
| 


下 RCI rowlndex hs ImteEeT 
裔 正 按 衬 对 应 的 事件 了 过往 

rr sub Ok ClickO 
Me. Hl de 


Private Sub UserForn hctivatet) 
Dim Sht As Worksheet 
Set Sht = Worksheets (“出 差 记 录 ”) 
Dinm EventStr 点 5 Strine 
Dim DateStr As String 
Dim NowStr As String 
Eventstr = “事由 :“ + Sht. Cells (rowindex, 1) 
Datestr =“ 出 差 时 间 : 
+ CStr (Sht. Cells (rowindex, 4)) 
Nowstr =“ 当 前 时 间 : 

+ CStr(Date) + ” " + CStr(Tinme) 
Event2. Caption = EventStTr 
OutTine. Caption = DateSstr 
NowTime. Caption = NowStr 

End Sub 


步骤 03 ”编写 自动 获取 提醒 信息 的 代码 。 在 菜单 栏 中 单 击 “ 插 入 > 模块 ”命令 ， 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 为 gainwarning0 过 程 的 第 1 部 分 代码 ， 用 于 获取 
当前 系统 日 期 和 当前 工作 表 的 行 数 。 


EalnnTarnine 


和 宙 芋 关 妆 的 与 网 交 站 到 5 的 
Public Sub galnwarnii ae 
"声明 变量 sht 存 储 “出差 记录 ”工作 表 
Eu Sht hs Worksheet 
t Sht = Worksheets (“出 差 记 录 ”) 
" 丹 明 变量 丰 情 当 前 系 腕 时 恒 
Din nowday hs Integer 
Dinmn nowhour is Integer 
Din nownin As Integer 
获取 当前 系统 时 间 
nowday = Day (Now) 
nowhour = Hour (Now) 
nownin = Ninute (Now) 
' 获取 当前 工作 表 的 行 数 
Din rownun hs Integer 
rownum = Sht. Rangel’ al ) .CurrentRegion Rows. Count 


步骤 04 ”获取 提醒 日 期 并 判断 是 否 需要 提醒 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 为 gainwarning() 过 程 的 第 2 部 分 代码 ， 用 于 获取 提醒 日 期 ， 并 判断 是 否 需要 提醒 ， 
其 中 使 用 DateValue() 函 数 将 Warndate 变 量 的 值 转换 为 日 期 型 数据 。 


| A 


“" 令 环 枉 瓜 导 症 时 刻 两 时 提要 失事 什 
For 1 = 3 To ro 
“声明 变量 Eventdate 存 储 出 差 日 期 
Dim Eventdate hs Date : 
Eventdate = CDate (Sht.Cells (i, 4)) 
狭 取 提醒 日 期 Varndate 
Dn Varndate As Date 
Warndate = CDate (Sht.Cells (i, 7)) 
' 检查 是 天 需 遇 提 本 
If DateValue (WYarndate) 《> Date Then GoTo nxt 
If Sht.Cells(i, 7) = °° Then GoTo nxt 


步骤 05 ”获取 间隔 时 间 并 设置 出 差 日 期 和 当前 日 期 的 时 间 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 为 gainwarning(0 过 程 的 第 3 部 分 代码 ， 用 于 获取 间隔 时 间 ， 并 为 出 差 
日 期 和 提醒 日 期 添加 初始 小 时 数 。 


' 获取 间隔 时 间 

Din Spacetinme As Date 

Spacetiae Dovert nt Cells(i, 8), 1) 
:O00” 

" 假 没 公 司 上 班 时 间 是 9: 00 一 18: 00， 初 始 化 间隔 时 间 

Dim TXtime As Date 


Din Evetine is Date 

TXtime = Timevalue(” 9:00”") 
Evetime = TimeValue(” 9:00”) 
Din WarnD hs Date 

WarmnD = Warndate + TXtime 
Din EventT As Date 

EventT = Eventdate + Evetime 


知识 链接 ”提醒 时 间 


提醒 时 间 = 提 醒 日 期 + 间隔 时 间 。 其 中 ，“+ ”为 连接 运算 符 ， 用 户 可 以 将 “提醒 日 期 ” 列 中 的 单元 格 内 容 使 用 DateValue0 函数 转换 为 日 期 型 数据 ， 使 用 TimeValue0 有 函数 将 字符 事 “9: 00” 转 换 为 时 间 格 
式 ， 然 后 使 用 Left0 获 取 间 隔 时 间 中 的 数据 。 


重点 语法 与 代码 剖析 : DateValue(0、TimeValue(0、Left( 函 数 的 用 法 


DateValue0 函数 用 于 返回 一 个 Date 值 ， 其 语法 格式 为 : DateValue (date) 。 其 中 ，date 参 数 是 必需 参数 ， 通 常 是 字符 串 表 达 式 ， 表 示 从 100 年 1 月 1 日 到 9999 年 12 月 31 日 之 间 的 一 个 日 期 。 但 是 date 也 可 以 是 
任意 表达 式 ， 其 所 代表 的 日 期 、 时 间 在 上 述 范围 内 。 注 意 : 如 果 date 是 一 个 字符 串 ， 且 其 内 容 只 有 数字 及 分 隔 数字 的 日 期 分 隔 符 ， 则 DateValue0 有 函数 就 会 根据 系统 中 指定 的 短 日 期 格式 来 识别 月 、 日 、 年 的 顺 
序 。DateValue0 函数 也 可 识别 明确 的 英文 月 份 名 称 ， 全 名 或 缩写 均 可 


TimeValue0 函数 用 于 返回 一 个 包含 时 间 的 Date 值 ， 其 语法 格式 为 : TimeValue (time) 。 其 中 ，time 参 数 是 必需 参数 ， 通 常 是 字符 串 表 达 式 ， 表 示 0: 00: 00 (12: 00: 00 AM.) ~23: 59: 59 (11: 
59 P.M.) 之 间 的 时 刻 。 但 是 time 也 可 以 是 表示 在 同一 时 间 范 围 内 取 值 的 任意 的 其 他 表达 式 。 如 果 time 和 包含 Null， 则 返回 Null。 需 要 注意 的 是 ， 可 以 使 用 12 小 时 制 或 24 小 时 制 的 时 间 格 式 。 例 如 ，“2: 
24PM” 和 “14: 24” 均 是 有 效 的 time 表 达 式 。 如 果 time 参 数 包含 日 期 信息 ，TimeValue0 函数 将 不 会 返回 它 。 如 果 time 参 数 包含 无 效 的 日 期 信息 ， 则 会 导致 错误 发 生 。 


Left0 函数 用 于 返回 从 指定 字符 事 左 边 算 起 的 指定 数量 的 字符 。 其 语法 格式 为 : Left (string，length) 。 其 中 ，string 是 必需 参数 ， 用 于 指定 要 截取 的 字符 串 表 达 式 ， 如 果 stting 包 含 Null， 将 返回 Null。 
length 也 是 必需 参数 ， 用 于 指定 将 返回 多 少 个 字符 。 如 果 它 为 0， 则 返回 零 长 度 字符 串 (") 。 如 果 它 大 于 或 等 于 stting 的 字符 数 ， 则 返回 整个 字符 事 。 其 数据 类 型 为 数值 型 。 


步骤 06 ”判断 是 否 显示 提醒 信息 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 为 gainwarning() 过 程 的 第 4 部 分 代码 ， 用 于 判断 是 否 显示 提醒 信息 。 


(机 用 ) | |Ealnvarning 
' 循环 多 次 提醒 
While WarnD < EventT | 
If DaytyarnDi = novday And Hour (WarnD) = 
nowhour Then 
It nownin = 0 Then 
"生成 提醒 窗 体 
Dim thewarn hs WarnBox 
Set thewarn = New YarnBox 
thewarn. rowindex = 1 
thewarn. Show 
Set thewarn = Nothinge 
End I+i 
End I+ 
WarnD = WarnD + Spacetline 


Wend 
' 当 扫 措 行 不 需要 提醒 时 ， 直 接 扫描 下 一 行 
nxt: Next 1 
| End Sub 


步骤 07 打开 工作 簿 时 自动 运行 查找 提醒 信 息 的 代码 。 在 “工程 ”窗口 中 双击 ThisWorkbook 选 项 ， 在 打开 的 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 在 打开 工作 簿 时 自动 调用 


setwarning(0 过 程 。 


Yorkbook 
Private Sub Workbook Open0 
"声明 变量 Sht 存 储 “中 差 记 录 ” 工 作 表 
Dim Sht As Worksheet 
Set Sht = Sheets ("出 差 记 录 ”) 
' 获取 表格 的 行 数 
Dim Townum As Integer : 
rownun = Sht. Ranee(’ Al1’).CurrentReeion. 
Rows.Count | 
"针对 表格 的 每 一 行 ， 根 据 需 在 设 商 提 本 
Dim 1 上 as Integer 
For 1 = 3 To rownum 
setwarning 1 
Next 1 
End sub 


步骤 08 自 定 义 setwarning0 过 程 。 在 “ThisWorkbook (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代 码 为 setwarning(0 过 程 的 第 1 部 分 代码 ， 用 于 获取 出 差 日 期 、 提 醒 时 间 和 间隔 时 间 。 


为 信行 设置 提醒 
sub setwarning (rowindex hs Intezer) 
"声明 变量 sht 存 储 “出 差 记 录 ” 工 作 表 
Dim Sht As Worksheet . 
et Sht = Worksheets( 出 竺 记录 ”) 
' 医 取 用 尸 设 首 的 事由 时 间 
Dim OutTimel hs Date 
OutTimel = = CDate'(Sht.Cells (rowindex, 4)) 


声明 变 量 存 依 六 事件 提醒 时 间 
D1n varningstinme Ls Date 
TH CDate(Sht.Cells (rowindex, 7)) 


D1n Spaces Ms Date 

Space2 = J eb Cellslrowindex, 8) 
， 二 00” 

Dim Warndate 点 S_ Date 


步骤 09 设置 间隔 性 定时 执行 的 gainwarning() 过 程 。 在 “ThisWorkbook (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 主要 使 用 Application.OnTime 方 法 安排 一 个 过 程 在 将 来 的 特定 
时 刻 运行 。 完 成 代码 的 编写 后 ， 关 闭 该 工作 筹 ， 再 重新 打开 ， 即 可 运行 ThisWorkbook 中 的 Workbook Open( 过 程 。 若 系统 时 间 到 达 指 定时 刻 ， 将 会 弹出 “提醒 ” 对话 框 。 


通用 ) v 


二 


Warndate = warninetime + TimeVvalue(t 9:00°) 
Dim Eventtime As Date 
Eventtime = OutTimel + TimeValue(”9:00”) 
' 循环 和 多 ;次 提 本 
While Warndate < Eventtinme 
Ap lication. OnTime Warndate, "gairnwarnine” 


贡 块 1 , gainwarnine 
Warndate = Yarndate + Space2 
Wend 
End Sub 


10.3” 目 动 显示 出 差 人 员 


公司 为 员工 安排 工作 时 ， 需 将 正在 出 差 的 员工 排除 在 外 ， 这 就 需要 知道 当前 出 差 的 人 员 名 单 。 本 节 将 使 用 Excel VBA 的 用 户 窗 体 及 程序 代码 实现 当天 出 差 人 员 名 单 的 自动 显示 。 


要 码 看 视频 


人 


F: 实例 文件 \ 第 10 章 \ 原 始 文件 \ 出 差 行 程 提醒 .对 sm 


: 实例 文件 \ 第 10 章 \ 最 终 文件 \ 显 示 出 差 人 员 .xlsm 


为 了 显示 出 差 人 员 ， 需 要 设计 一 个 “ 现 出 差 人 员 ” 用 户 窗 体 作为 显示 信息 的 载体 。 具 体操 作 如 下 。 


| 另存 工作 短 。 打 开 原 始 文件 ， 并 将 其 另存 为 “显示 出 差 人 员 .xlsm” ， 其 中 的 数据 如 下 图 所 示 。 


D 
员工 出 震 记 录 
事由 出 状态 出差 好 总。 出 差 时 间 预计 返回 时 间 预 况 此 用 提 栈 日 期 间隔 

联系 许 户 浊 | 恒 上 海 201871 55 201871720 21D0. 00 元 201371/4 2 小 时 
技术 如 流 x 时 天 津 201871/5 2018/1 /20 2 D0, DT 201871x31 小 时 
签到 襄 问 专 上 上海 201871L2 201871710 580,. 0 元 20187175|2 小 时 
分 闪避 议 查 过 乳 北京 2019/1710 2018 站 720 1 450. 的 元 2018 门 5 2 小 时 
联系 罕 忆 孙 明 武 没 2019/2720 2018727a8 1120. 0 元 2018/2719|1 小 时 


1 
思 
1 
癌 
了 
吕 


出 差 记录 Sheet2 | Sheet3 四 


步骤 02 插入 用 户 窗 体 。 进 入 VBE 编 程 环境 ， 插 入 一 个 用 户 窗 体 对 象 ， 在 “属性 ”窗口 中 设置 “” (名 称 ) ”属性 为 Prompt、Caption 属 性 为 “ 现 出 差 人 员 ”， 得 到 如 下 图 所 示 的 效果 。 
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时 HH 面 晨 


HH 


下 时 


:和 


重用 生生 后 寺 且 寺 


步骤 03 ”设计 “ 现 出 差 人 员 ” 窗 体 中 的 所 有 控件 。 在 “ 现 出 差 人 员 ” 用 户 窗 体 对 象 窗口 中 ， 利 用 前 面 学 习 的 方法 绘制 标签 和 命令 按钮 控件 ， 并 按照 下 表 设 置 所 有 控件 的 属性 ， 得 到 如 右 图 所 示 的 效果 。 


序号 一 一 名 称 属 性 Caption 是 和 Font 属性 


”1 | 标签 | Labelt | 出 差 人 员 ; | 微软 雅 黑 、 粗 体 、 五 号 
2 | 标签 | Label2 | 当前 时 间 : | 微软 雅 黑 、 粗 体 、 五 号 
微软 牙 黑 、 粗 体 、 五 号 
微软 雅 黑 、 粗 体 、 小 四 


10.3.2 ”为 控件 添加 触 友 事 件 代码 


完成 “ 现 出 差 人 员 ” 用 户 窗 体 的 制作 后 ， 还 需 为 其 中 的 各 控件 添加 相应 的 事件 代码 ， 才 能 达到 自动 显示 出 差 人 员 的 目的 。 具 体操 作 如 下 。 


步骤 01 编写 OK_Click0 过 程 。 继 续 上 一 小 节 的 操作 ， 双 击 “ 确 定 ”按钮 ， 在 打开 的 “Prompt (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 在 单 击 “确定 ”按钮 后 关闭 用 户 窗 体 。 


' 单 击 确定 按钮 对 应 的 事件 过 程 
Private Sub OK_Click0) 
关闭 用 户 窗 悚 
Me. Hide 
End Sub 


步骤 02 初始 化 Prompt 用 户 窗 体 。 在 “Prompt (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 为 初始 化 Prompt 用 户 窗 体 的 前 半 部 分 代码 ， 主 要 用 于 定义 变量 ， 存 储 当 前 系统 日 期 、 当 前 出 差 
人 员 姓 名 及 当前 工作 表 的 行 数 。 


UserFors 加 


”用户 窗 体 的 初始 化 代码 
rep Su UserForm Actlivat 
外 作 来 
Din sht hs Worksheet 
Set Sht = Worksheets( 出差 记 录 ”) 
定 头 变 音 存 情 当 前 系统 日 期 
Dim SysDate Ee Date 
Sy Ys pe = Dat 
次 量 存 情 光 前 出 差 人 员 姓 名 


i OutName As Strin 


" 汗 义 由 恋 量 存 储 当前 工作 表 的 行 数 
Din rownum As lInteger 
获取 当前 工作 表 的 行 数 ” 
rownum = Sht. Range(’ Al ) .CurrentRegion. 
Rows. Count 


步骤 03 ”循环 获取 满足 条 件 的 出 差 人 员 姓名 。 在 “Prompt (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代 码 为 初始 化 Prompt 用 户 窗 体 的 后 半 部 分 代码 ， 判 断 当 前 日 期 是 否 在 出 差 日 期 与 返 
回 日 期 之 间 ， 并 将 获取 的 值 赋 给 变量 OutName， 然 后 将 获取 的 值 显示 在 Prompt 用 户 窗 体 中 。 


箱 环 得 找 当 前 日 期 正在 出 差 的 人 员 姓 名 


For 1 = 3 To rownun 
If CDatet(Sht.Cells(i, 4)) 《= SysDate and _ 


SysDate “= CDate'Ssht.Cells'(i, 5®) Then 
OutHane = OutName + Sht.Cells(i, 2) _ 


Tf 
* 办 获 取 的 值 显示 在 窗 体 的 标签 控件 中 


Namel. Captlion = OutNanme 
NowTlime. Caption = SysDate 
End Sub 


步骤 04 ”编写 “显示 出 差 人 员 名 单 0” 过 程 的 代码 。 右 击 “ 工 程 ” 窗 口中 的 “VBAProject (显示 出 差 人 员 .xlsm) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 ”命令 ， 在 打开 的 “模块 2 ( 代 
码 ) ”窗口 中 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 调用 Prompt 窗 体 。 


Prompt. Show 
End Sub 


步骤 05 ”选择 命令 按钮 控件 。 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 下 单 击 “ 插 入 ”按钮 ， 在 展开 的 列表 中 单 击 “按钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


Power Prvot 


ee 
Aa 忽 回国 宣 


”ActiveX 控件 


员工 出 其 记 如 国外 外 四 
员 差 人 “出差 地 点 下 昌国 e As 避让 [预支 费用 
刘 蛋 上 海 2018/1/5 2018/ 7 2100. 00 元 
刘 星 天 津 2018/1/5 2018/1/20 2100. 00 元 
加 愉 上 海 20187176 2018/1/10 560. 00 元 
谢 肯 北京 2018/1/10 2018/1/20 1400. 00 元 
孙 明 武汉 2018/2/20 2018/2/28 1120. 00 元 


步骤 06 ”绘制 命令 按钮 控件 。 选 取 命 令 按钮 控件 后 ， 在 工作 表 的 适当 位 置 拖 动 鼠标 ， 绘 制 需要 的 命令 按钮 控件 ， 如 下 图 所 示 。 拖 动 到 适当 的 位 置 后 ， 释 放 鼠 标 。 


预计 返回 时 间 ”预支 费用 提醒 日 期 间隔 
2018/1/20 2100, 00 元 2018/7174 2 小 时 
2018/1/20 2100. 00 元 2018/7173 1 小 时 
2018/1/10 560. 00 元 20187175 2 小 时 
2018/1/20 1400. 00 元 2018/1/8|2 小 时 
2018/2/28 1120, 00 元 2018/2/19 1 小 时 


步骤 07 ”为 命令 按钮 控件 指定 宏 。 弹 出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 显 示 出 差 人 员 名 单 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ” 按 钮 。 


gainwarning 
写 球 中 闫 人员 室 单 


步骤 08 运行 安 。 返 回 工 作 表 ， 将 命令 按钮 控件 上 的 文本 更 改 为 “显示 现在 出 差 人 员 名 单 ”。 激 活 并 单 击 该 按钮 ， 如 下 图 所 示 ， 即 可 执行 相应 的 安 。 


预计 返回 时 间 ”预支 费用 提醒 日 其 间隔 
2018/1/20 2100. 00 元 2018/1/4 2 小 时 
2018/1/20 2100. 00 元 2018/1/3 1 小 时 


2018/1/10 560. 00 元 2018/1/5 2 小 时 
2018/1/20 1400. 00 元 2018/1/8 2 小 时 
2018/2/28 1120. 00 元 2018/2/19 1 小 时 


步骤 09 ”显示 当日 出 差 人 员 名 单 。 弹 出 “ 现 出 差 人 员 ” 对 话 框 ， 在 其 中 显示 当天 在 外 出 差 的 人 员 姓 名 ， 如 右 图 所 示 。 单 击 “ 确 定 ”按钮 ， 关 闭 “ 现 出 差 人 员 ” 对 话 框 。 


a 
wm 
wm 
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二 | 


第 11 草 ”商品 入 库 信息 管理 


商品 入 库 信 息 管 理 主要 是 指 入 库 记 录 的 录入 、 排 序 、 统 计 与 筛选 等 。 本 章 将 使 用 Excel VBA 制 作 一 个 简单 而 实用 的 商品 入 库 信息 管理 系统 ， 该 系统 有 以 下 功能 : 提供 “入 库 记 录 录 入 单 ” 界 面 , 方便 用 
户 录入 数据 ;能 将 用 户 录入 的 数据 写 入 指定 工作 表 ， 并 按 指定 字段 升序 排列 ， 能 对 数据 进行 分 类 汇总 ;能 对 数据 进行 自动 筛选 和 高 级 筛选 。 
11.1 商品 入 库 记录 的 录入 与 排序 


本 节 将 编写 VBA 程 序 代码 ， 实 现 商 品 入 库 记 录 的 录入 和 排序 。 用 户 在 指定 工作 表 中 输入 商品 代码 后 ， 系 统 会 自动 从 其 他 工作 表 中 调用 并 显示 商品 名 称 、 单 价 等 信息 ， 用 户 接着 输入 入 库 数量 ， 并 输入 公 
式 计 算 入 库 金 额 。 录 入 完 一 条 记录 ， 可 将 数据 写 入 指定 工作 表 ， 录 入 完 所 有 记录 后 可 对 数据 进行 一 键 升序 排列 。 


要 码 看 视频 


he 


[一 一 。 上: 实例 文件 \ 第 11 章 \ 原 始 文件 \ 商 品 入 库 信 息 管 理 .xlsx 


: 实例 文件 \ 第 11 章 \ 最 终 文件 \ 排 序 .xlsm 


本 小 节 将 介绍 如 何 通过 VBA 程 序 代码 创建 “入 库 记 录 录 入 单 ” 界 面 ， 供 用 户 方便 、 快 捷 地 录入 数据 。 具 体操 作 如 下 。 


| 打开 工作 短 。 打 开 原 始 文件 ， 可 看 到 在 该 工作 短 中 已 存在 “商品 基本 信息 ”和 “入 库 记录 ”工作 表 ， 切 换 至 “商品 基本 信息 ”工作 表 ， 可 看 到 如 下 图 所 示 的 数据 。 


1 一 Qul 
用-UUez 
N003 
N004 
N00o 
NM-006 
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2 
3 
一 
9 
0 
全 
8 
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| | 一 上 
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"es B 
商品 代码 商品 名 称 


纯 平 显 示 器 
液晶 显示 器 


一 


内 存 杀 


蛙 从 


¥ 900 
¥1,500 
¥ 800 
¥ 3,000 
¥1, 900 
¥1,500 
¥ 800 
¥ 360 


批发 从 


¥ 800 
¥1, 400 
¥650 
¥ 2,800 
¥1,700 
¥1,300 
¥ 700 
¥ 300 


品 基本 信息 | 入 库 记 录 | Sheet3 | 


步骤 02 ”查看 “入 库 记 录 ” 工 作 表 。 切 换 全 “入 库 记 录 ” 工 作 表 ， 可 看 到 在 该 工作 表 中 已 录入 “日 期 ”“ 商 品 代码 ” “商品 名 称 ” “单价 ” “数量 ” “金额 ”字段 ， 如 下 图 所 示 。 


E F 


日 期 商品 代码 ”商品 名 称 ”单价 ”数量 人 金额 


步骤 03 ”创建 “入 库 记 录 录 入 单 ”。 将 Sheet3 工 作 表 重 命名 为 “录入 入 库 记 录 ”， 然 后 在 该 工作 表 中 创建 如 下 左 图 所 示 的 表格 。 进 入 VBE 编 程 环境 ， 双 击 “Sheet3 (录入 入 库 记 录 ) ”选项 ， 打 


开 “sheet3 (代码 ) ”窗口 。 


商品 基本 信息 


入 库 记 录 | Sheet3 


步骤 04 ”编写 更 改 单元 格 B3 中 的 内 容 时 自动 执行 “调用 商品 信息 0” 过 程 的 代码 。 在 打开 的 “sheet3 (代码 ) ”窗口 中 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 在 修改 单元 格 B3 中 的 内 容 时 ， 自 动 调 
用 “调用 商品 信息 (0)” 过 程 。 


' 当 更 改 商 品 代 码 单 元 格 EB3 中 的 值 时 目 动 执行 
i Sub Worksheet Chanege _ 
BYVal Target hs Ranee) 
和 年 知音 癌 和 中 
L Tar: - Row = 3 And Tareset. Column = = 2 Then 
"如 则 调用 “调用 商品 信息 0 ”过 程 


sheet3. 调用 商 吕 入 息 
End If 
End Sub 


步骤 05 ”编写 “调用 商品 信息 0” 过 程 的 代码 。 在 “sheet3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “调用 商品 信息 ()” 过 程 的 前 半 部 分 代码 ， 用 于 声明 变量 ， 存 储 工作 表 和 | 获 


取 “ 商 品 基 本 信息 ”工作 表 的 行 数 。 


"调用 商品 信息 的 过 起 程 代码 

sub 调用 商品 信息 
Dim a As Worksheet 
Set a = Worksheets (“商品 基本 信息 “) 
Dim b hs Worksheet 


Set b = Worksheets( "录入 入 库 记 录 
' 声明 变 是 客 生 名 巧 生 本 从 全 ”下 作 洒 的 | 本 数 
Dim rowNunm Ls Integer 
rowNunm = a.Range(t A1”).CurrentRegion. 
Rows. Count 


步骤 06 判断 输入 的 商品 代码 是 否 存 在 。 在 “Sheet3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “调用 商品 信息 0” 过 程 的 后 半 部 分 代码 ， 主 要 用 于 判断 输入 的 商品 代码 是 否 存在 。 
如 果 存 在 ， 则 将 需要 的 信息 写 入 相应 的 单元 格 中 。 


循环 刘 断 吓 


存在 输入 的 商品 代码 ， 
' 填 存在 则 将 需要 的 信息 


商品 
信息 瑟 入 相应 的 日 元 格 中 


b.Cells(2, 4 = Date 
For 1 = 2 To ee 
It b.Cells(3, 2) = a.Cells(i, yy Then 


b.Cells'(3, 4) = a.Cells(i, 
b. Cells (4， 2) = a.Cells(i, 4 
b. Cells (4. 2) .NunberFornat = 
b.Cells(5, 2).NumberFormat = ” 
Exit Sub 
End I+t 
ee 
Mseb 
C” 没有 该 商品 代码 ， 请 在 商品 基本 情 息 表 中 添加 ”) 
End Sub 


步骤 07 ”输入 商品 代码 。 返 回 Excel 视 图 ， 在 单元 格 B3 中 输入 “M-001”， 如 下 图 所 示 ， 然 后 按 Enter 键 。 


步骤 08 显示 运行 代码 后 的 效果 。 更 改 单元 格 B3 的 内 容 后 ， 系 统 自动 执行 “调用 商品 信息 0)” 过 程 ， 最 终 效果 如 下 图 所 示 。 


D 
201871715 


| 商品 基本 信息 | 入 库 记录 | 录入 入 库 记 录 | 


步骤 09 ”输入 商品 的 数量 。 在 单元 格 D4 中 输入 “5”， 如 下 图 所 示 ， 然 后 按 Enter 键 。 


| 四 
2018/1/15 


| FE C 

2 | re 
atakm nat erne 
ee | veri 


步骤 10 ”计算 入 库 金 额 。 在 单元 格 B5 中 输入 公式 “=B4*D4”， 然 后 按 Enter 键 ， 即 可 得 到 如 下 图 所 示 的 结果 。 


A | Cc D 
z 2018/1/15 


4, UUU. O00 


11.1.2 ”编写 代码 将 录入 的 数据 写 入 工作 表 


在 “入 库 记 录 录 入 单 ”中 完成 数据 录入 后 ， 就 需要 将 该 录入 单 中 的 数据 写 入 “入 库 记 录 ” 工 作 表 中 。 本 小 节 将 介绍 如 何 通 过 VBA 代 码 将 “入 库 记录 录入 单 ” 中 的 数据 写 入 “入 库 记 录 ” 工 作 表 中 ， 具 体 
操作 如 下 。 


步骤 01 编写 “保存 0” 过 程 的 代码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 ， 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “ 保 
存 0” 过 程 的 前 半 部 分 代码 ， 主 要 用 于 声明 变量 ， 存 储 需要 的 工作 表 及 获取 需要 工作 表 的 行 数 。 
= Xx 
| 


而 -本 -| 
| | “保存 入 库 记录 的 过 程 代码 


Sub 怀 仔 已 | 
"声明 变量 存储 需要 的 工作 表 
Dim Sht As Worksheet 


Set Sht = Worksheets ("入 库 记 录 ”) 
ww i hs Vorksheet 
= Worksheets( ”录入 入 库 记 录 ”) 
性 计 和 庄 记 当 旺 失守 的 当前 行 娄 
Din RH Ms Integer 
RN = Sht. Ranee(’ al ) .CurrentRegion.Rows.Count 


步骤 02 ”将 数据 写 入 “入 库 记 录 ” 工 作 表 中 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “保存 ()” 过 程 的 后 半 部 分 代码 ， 用 于 将 数据 写 入 “入 库 记 录 ” 工 作 表 中 已 有 数据 
下 方 的 空白 行 ， 并 设置 数据 的 数字 显示 格式 。 


' 在 数据 的 末尾 写 入 需要 的 数据 信息 并 设置 其 数字 格式 

Ssht. Cells (RN ) = CDate (LR.Cells (2, 4)) 
LR. Cells (3, 2) 
LR. Cells (3, 4) 
) = LR.Cells (4, 2) 

) . NunberF ormat =“ 闻 0.00- 
= LR.Cells (4, 4 
= LR.Cells(5, 2) 

. NumberFornmnat =“ 和 0.00- 


Ls / 
Sht.Cells (RN + 
CU 


Sht.Cells (RN + 
Sht. Cells (RN 
Sht. Cells (RN 1 
Sht.Cells (RN + 
Sht.Cells (RN + 
Sht. Cells (RN 
End sub 


PP 


步骤 03 ”选择 按钮 控件 。 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 下 的 “控件 ”组 中 单 击 “ 插 入 ”按钮 ， 在 展开 的 列表 中 单 击 “按钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 
视图 ， 开 点 [ 具 | Power Pivot 


| SA 日 


| 本 
设计 楼 并 Qj 查看 代码 


国 执行 对 话 框 
”表单 控件 


名 访 国 © | 
AD 请 [=] Bg 国 | 策 || 


D | 
201871 口角 Mt 二 
商品 之 称 | 纯 平 显示 器 © Alo 纪 针 


_ Yao 届 | 5 


步骤 04 为 命令 按钮 指定 宏 。 在 工作 表 中 的 适当 位 置 绘制 命令 按钮 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 保 存 ” 选项， 如 下 图 所 示 ， 然 后 单 击 “确定 ”按钮 。 


= 


步骤 05 运行 “保存 0” 过 程 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “保存 记录 ， 并 激活 该 按钮 。 若 要 运行 “保存 0” 过 程 ， 则 单 击 “ 保 存 记录 ”按钮 ， 如 下 图 所 示 。 


入 库 记录 录入 音 


RR 


¥4, O00. 00 


2018/1/15 


| 商品 基本 信息 | 入 库 记录 


步骤 06 ”查看 运行 “保存 0” 过 程 后 的 效果 。 切 换 至 “入 库 记 录 ” 工 作 表 ， 在 该 工作 表 中 写 入 了 “录入 入 库 记 录 ” 工 作 表 中 的 数据 ， 如 下 图 所 示 。 


a | B | ¢ | DD | E | _F 
商品 代码 “商品 名 种 单价 数 重 金额 


2018/1/15 NM-001 是 平 显示 器 闻 800. 00 5 ¥4000.00 


\ 库 记录 录入 音 
日 期 


商品 名 称 | 纯 平 显示 器 


主 4 DOV. OV 


2018/1/15 


商品 基本 信息 | 入 库 记录 | 录入 入 库 记 录 | 


步骤 08 ”弹出 提示 框 。 系 统 将 会 弹出 提示 框 ， 提 示 用 户 没有 该 商品 代码 ， 请 在 “商品 基本 信息 ”工作 表 中 添加 ， 单 击 “ 确 定 ”按钮 ， 即 可 退出 “调用 商品 信息 (0)” 过 程 的 运行 ， 如 下 图 所 示 。 


步骤 09 录入 其 他 的 入 库 记 录 。 用 相同 的 方法 ， 在 “录入 入 库 记 录 ” 工 作 表 中 输入 其 他 入 库 记 录 并 保存 ， 然 后 切换 至 


序 .xlsm” 。 


1 
2 
3 
二 
9 
i 
2 
3 
10 
11 
le 
13 
14 
15 
16 


入 库 记录 录入 音 


Microsoft Excel 


斗 ” 没 有 该 商品 代码 ， 请 在 商品 基本 信息 表 中 添加 


I 
过 


商品 基本 信息 


b 


商品 代码 ”商品 名 种 单价 
绅 半 显示 姨 。 站 800. 
流 员 显示 翼 ， 闻 1400. 
¥650. 
¥1300., 
¥ 300. 
¥650. 
¥1700. 
¥ 700. 
¥1300., 
¥ 800. 
¥ 1400. 
¥650. 0 
¥1700. 0 
¥ 2800. 


2018/1/15 M-001 
2018/1/15 NM-002 
2018/1/15 NM-003 
2018/1/15 NM-006 
2018/1/15 NM-008 
2018/1/18 NM-003 
2018/1/18 NM-005 
2018/1/18 NM-007 
2018/1/18 NM-006 
2018/1/25 K-001 
2018/1/25 NM-002 
2018/1/25|N-003 
2018/1/25 NM-005 
2018/1/25 M-004 
2018/1/26 NM-002 


11.1.3 ”编写 代码 将 数据 按 商 品 代码 升序 排列 


入 库 记 录 | 录入 入 库 记录 


CPU 
扫 拉 仪 
内 存 条 
CPU 

打印 机 


音箱 


扫 拍 仪 


生平 袜 示 线 
液 明 显示 兹 


D 


z 液晶 显示 器 ， 半 1400. 0 
| 商品 基本 信息 | 入 库 记录 | VW | 


上 


Oa 


“入 库 记 录 ” 工 作 表 中 ， 可 看 到 如 右 图 所 示 的 效果 。 最 后 将 该 工 


金额 
了 4000. 
¥ 7000. 
6500. 
10400. 
¥ 2100. 
¥ 3250. 
¥10200. 
¥ 2100. 
¥ 3900. 
¥ 3200. 
¥ 2800. 
¥ 3250. 
5100. 
11200., 
¥ 2800. 


| 


二 二， 


作 簿 另存 为 “ 排 


i 


i 


完成 前 两 个 小 节 的 操作 后 ， 为 了 达到 自动 按 商 品 代码 升序 排列 数据 的 目的 ， 本 小 节 将 编写 “ 按 商 品 代码 排序 ”过程 。 具 体操 作 如 下 。 


步骤 01 编写 “ 按 商 品 代码 排序 0” 过 程 的 代码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 ， 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 。 该 段 
代码 是 “ 按 商品 代码 排序 0” 过 程 的 前 半 部 分 代码 ， 主 要 用 于 获取 工作 表 的 行 数 及 需要 排序 的 数据 区 域 。 


' 按 了 两 品 代码 排 F 
3ub 按 商 品 代码 ] ) 
声明 变 便 存 情 “六 库 记 录 ” 工 作 表 
Lo Sht As Worksheet 
t Sht = Worksheets ("入 库 记 
全 作家 的 行 娄 
Dim rowNum As Integer 
re 一 A CurrentRegion. 


声明 在 家 丰 个 当前 数据 区 二 


Dim a Ls Range : 
Set a = RangelSht.Cells(l1l, 1), Sht.Cells _ 
(rowHNum, 6 ) 


步骤 02 编写 按 指定 的 数据 字段 进行 升序 排列 的 代码 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 为 “ 按 商 品 代 码 排序 ”过 程 的 后 半 部 分 代码 ， 其 中 主要 使 用 Range 对 象 的 
Sort 方 法 对 指定 字段 进行 升序 排列 。 


按 商 品 代码 排序 


以 对 话 框 提示 排序 的 依据 
Dim keyword As Strine 
keyword = Sht. Rangel Bl .Value 
Dim Prompt Ais Boolean 
Prompt = NsgBox( lL” & key Word & 
“外 类 十 下 全 车 村 重兵 二 ,vbYesHo) 
` 按 指 定 的 数据 字段 进 到 闻 床 排 纪 


It Prompt = wbNo Then Exlt Sub 
a. Sort keyl :=Range( Bl’), Header:=xlYes 
End sub 


知识 链接 ”对 单元 格 区 域 中 的 数据 进行 排序 
要 对 单元 格 区 域 中 的 数据 进行 排序 ， 可 以 使 用 Range 对 象 的 Sort 方 法 。 
重点 语法 与 代码 剖析 : Range.Sort 方 法 的 用 法 


Range.Sott 方 法 用 于 对 单元 格 区 域 进行 排序 。 其 语法 格式 为 : 表达 
式 .Sort (Keyl, Orderl, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1，DataOption2，DataOption3) 。 下 面 对 其 参数 进行 详细 介 


AN 
nS 
o 


@@ Key1 是 可 选 参数 ， 用 于 指定 第 1 排序 字段 ， 作 为 区 域名 称 〈 字 符 串 ) 或 Range 对 象 。 

@ Orderl1 是 可 选 参 数 ， 用 于 指定 Key1 中 指定 的 值 的 排序 次 序 。 

@ Key2 是 可 选 参数 ， 用 于 指定 第 2 排序 字段 ; 对 数据 透视 表 进 行 排序 时 不 能 使 用 。 

@@ ”Type 是 可 选 参数 ， 用 于 指定 要 排序 的 元 素 。 

@@ Order2 是 可 选 参 数 ， 用 于 指定 Key2 中 指定 的 值 的 排序 次 序 。 

@ ”Key3 是 可 选 参 数 ， 用 于 指定 第 3 排序 字段 ; 对 数据 透视 表 进 行 排序 时 不 能 使 用 。 

@@ Order3 是 可 选 参数 ， 用 于 指定 Key3 中 指定 的 值 的 排序 次 序 。 

@ Headet 是 可 选 参 数 ， 用 于 指定 第 1 行 是 否 包 含 标 题 信息 。 默 认 值 是 xINo; 若 项 望 由 Excel 确 定 标 题 ， 则 将 其 设 为 XlGuess。 
@。 OrderCustom 是 可 选 参数 ， 用 于 指定 在 自 定义 排序 次 序列 表 中 基于 1 的 整数 偏 移 。 

全 MatchCase 是 可 选 参 数 ， 如 果 其 值 设置 为 True， 则 执行 区 分 大 小 写 的 排序 ; 如 果 设 置 为 False， 则 执行 不 区 分 大 小 写 的 排序 。 它 不 能 用 于 数据 透视 表 。 
@@ Orientation 是 可 选 参数 ， 用 于 指定 以 升序 还 是 降序 排序 。 

@@ SortMethod 是 可 选 参数 ， 用 于 指定 排序 方法 。 

@@。 DataOption1 是 可 选 参数 ， 用 于 指定 Key1 中 所 指定 区 域 文本 的 排序 方式 ; 不 能 应 用 于 数据 透视 表 排 序 。 

@@。 DataOption2 是 可 选 参数 ， 用 于 指定 Key2 中 所 指定 区 域 文 本 的 排序 方式 ; 不 能 应 用 于 数据 透视 表 排 序 。 

@。 DataOption3 是 可 选 参数 ， 用 于 指定 Key3 中 所 指定 区 域 文 本 的 排序 方式 ; 不 能 应 用 于 数据 透视 表 排 序 。 


步骤 03 ”为 命令 按钮 指定 宏 。 用 前 面 介绍 的 方法 在 工作 表 中 绘制 命令 按钮 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 按 商 品 代码 排序 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


步骤 04 运行 “ 按 商品 代码 排序 )” 过 程 。 返 回 工作 表 ， 将 按钮 控件 重 命名 为 “ 按 商 品 代码 进行 升序 排列 ”， 然 后 单 击 该 按钮 ， 


B 


一 


D 


商品 代码 商品 名 称 “单价 


步骤 05 ”弹出 提示 框 。 此 时 会 弹出 提示 框 ， 提 示 用 户 以 商品 代码 为 依据 对 入 库 记 录 进 行 排序 ， 单 击 “ 是 ”按钮 ， 即 可 继续 运行 该 


纯 平 显示 疝 
液 奶 显示 兹 


CPU 
扫描 仅 
内 存 条 
CPU 
打印 机 


音 相 


¥ 800. 
¥1400., 
¥ 650. 0 
¥1300.0 
¥ 300. 
¥650.1 
¥1700, 
¥ 700. 
¥1300, 
¥ 800. 
¥1400. 0 
¥650.,1 
¥1700., 
¥ 2800. 0 
¥1400., 
¥ 650. 
¥1700.0 
¥ 700. 


F 


金额 
¥ 4000. 
¥ T7000, 


¥6500. Or 


¥10400. 
¥ 2100. 
¥ 3250, 
¥10200. 


¥ 2100. or 


¥ 3900.1 


即 可 运行 “ 按 商品 代码 排序 0” 过 程 ， 如 下 图 所 示 。 


按 商 品 代 码 进行 逢 


序 排列 


¥ 3200. 0( 


¥ 2800.1 
¥ 3250. 
¥5100,. 
¥11200., 
¥ 2800, 


¥ 2600. t 


¥10200. 
¥ 2100. 


过 程 ， 如 下 图 所 示 。 


金额 
5 F4000. 00 
5 ¥7000. 00 


Microsoft Exce| 


以 商品 代码 为 依据 对 , 


¥ 3250,. 00 
5100. 00 
T11200. 00 
¥ 2800,. 00 


，_B C 
商品 代码 “商品 名 种 。 时 价 


2018/1/15 NM-001 十 平 显 示 屁 
201871725 NM-001 纯 平 显示 屁 
2018/2/2 1-001 症 平 也 示 斌 
2018/1/15 NWN-002 流 胃 显示 覆 
2018/1/25 NW-002 ”液晶 显示 器 
2018/1/28 -002 液晶 显示 器 
2018/2/2 NM-002 液 国志 示 冀 
2018/2/2 NM-002 洪 国 品 示 冀 
201871715-003 CPU 
2018/1/18 NWN-003 CPU 
2018/1/25 NM-003 CPU 
2018/1/28 MN-003 CPU 
2018/2/2 NN-003 CPU 


D 


¥ 800. 
¥ 800. 
¥ 800. 
¥1400. 
¥1400. 
¥ 1400. 00 
¥1400. 1 
¥1400. 
¥ 650. 
¥ 650. | 
¥ 650. 
¥ 650. 
¥ 650. 


F 


金额 


¥ 4000,1 


¥1600. 
¥ 7000., 
¥ 2800., | 
¥ 2800. 
¥ 4200. 
¥ 4200. | 
¥ 6500. 
¥ 3250. 
¥ 3250. 
¥ 2600, 
¥1950.1 


¥ 3200. 0( 


2018/1/25 -004 主机 ¥ 2800. 4 ¥11200. 
2018/2/2 NM-004 主机 ¥ 2800. ¥16800. 


入 库 记 录 | 录入 入 库 记录 


11.2 ”商品 入 库 记录 的 分 类 汇 忆 


本 节 将 使 用 VBA 程 序 代码 实现 按 商 品名 称 汇总 入 库 数量 及 金额 ， 即 对 “入 库 记 录 ” 工 作 表 中 的 数据 进行 分 类 汇总 ， 分 类 汇总 的 字段 为 “商品 名 称 ”， 选 定 的 汇总 项 为 “数量 ”和 “金额 ”字段 。 


首先 使 用 Range.sort 方 法 对 商品 名 称 进 行 升序 排列 ， 然 后 使 用 Range.Subtota| 方 法 分 类 汇总 入 库 数量 和 金额， 最 后 添加 命令 按钮 用 于 变更 和 隐藏 分 类 汇总 的 大 纲 、 移 除 分 类 汇总 。 


他 


一 一 上 : 实例 文件 \ 第 11 章 \ 原 始 文 件 \ 排 


要 码 看 视频 


序 .xlsm 


: 实例 文件 \ 第 11 章 \ 最 终 文件 \ 汇 总 数据 .xlsm 


要 实现 自动 按 商品 名 称 汇总 入 库 数量 及 金额 的 功能 


| “另存 工作 短 。 打 开 原 始 文件 ， 如 下 图 所 示 


， 首 先 需要 按 商品 名 称 对 数据 进行 升序 排列 ， 然 后 按 商品 名 称 对 数量 和 金额 进行 分 类 汇总 。 具 体操 作 如 下 。 


， 将 文件 另存 为 “汇总 数据 .xlsm” 。 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 。 


B C 

商品 代码 商品 名 称 单价 

¥ 800., 

¥ 800, 

¥ 800., 
¥1400. 
¥1400., 
¥ 1400. 0 
¥ 1400. 
¥1400. 

¥ 650, 

¥ 650., 

¥ 650. 


2018/1/15 M-001 
2018/1/25 NM-001 

2018/2/2 HN-001 
2018/1/15 NW-002 
2018/1/25 NM-002 
2018/1/28|N-002 

2018/2/2 W002 

2018/2/2 NM-002 
2018/1/15 WN-003 
2018/1/18 WN-003 
2018/1/25 NM-003 


纯 平 显示 器 
纯 平 显示 器 
纯 平 显示 器 
液晶 显 示 器 
液晶 显示 器 
液晶 显示 器 
液晶 显示 器 
液晶 显示 器 
CPU 

CPU 

CPU 


D 


E 
数量 


F 


金额 


¥ 4000. 1 
¥ 3200, 
了 1600. 
¥ 7000. 
2800. 
¥ 2800. 
了 4200. 
¥ 4200. 
¥ 6500. 
¥ 3250. 
¥ 3250. 1 


2018/1/28 MN-003 CPU 
2018/272 -003 CPU 
2018/1/25 WM-004 主机 
2018/2/2 MN-004 主机 


| 商品 基本 信息 | 入 库 记 录 | 过》 一 一 一 一 一 


¥ 2600. 
¥1950. 
11200. 
16800. 


步骤 02 编写 SortTotal0 过 程 代码 。 在 打开 的 “模块 3 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 主 要 用 于 声明 变量 ， 存 储 需要 的 工作 表 、 排 序 关 键 字 字段 和 关键 字 字 段 值 。 


( 理 用 ) v 

" 按 备 商品 名 称 进行 分 类 汇总 
Sub SortTotal 10 
' 先 按 商品 名 种 排序 

Dim Sht hs Worksheet : 
Set Sht = Worksheets(” 入 库 记 录 ”) 
' 声明 变革 行人 悄 排 序 关 键 字 字段 
Di ee String 


过 程 代 大 


Bald = 
着 明 让 量 作 情 关 键 字 字 段 信 
Dim Fvalue is Strine 
Fvalue = Sht. Ranze (Field) .Value 


步骤 03” 按 商品 名 称 分 类 统计 其 数量 及 金额 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 于 完成 数据 的 分 类 汇总 。 分 类 汇总 是 按 指定 字段 内 容 对 特定 的 数据 进行 分 类 
统计 ， 在 分 类 汇总 前 须 对 数据 按 指定 字段 进行 排序 。 该 段 代 码 中 使 用 Range.9Sort 方 法 对 数据 按 商 品名 称 进 行 升序 排列 ， 然 后 使 用 Range.Subtotal 方 法 对 数量 和 人 金额 进行 分 类 求 和 。 


声明 变 痢 存 情 提 示人 情 息 
Dim Prompt 点 ES Boolean 
Prompt = MsgBox(LA” & Fvalue & _ 
“为 依据 对 六 库 记 录 进 行 排序 ”，wbYesNHo) 
It Prompt = vbNo Then Exit Sub : 
Sht,. Range (Al’). Sort keyl :=RangekField 中 ， _ 


Orderl :=xlAs A Header :=XLYes 


' 按 商 品名 种 对 数量 及 金额 求 和 
Range( al ) .Subtotal GroupBy:=3, Function _ 
:=xXlSum, TotalList:=Array (5, 6) 
End Sub 


重点 语法 与 代码 剖析 : Range.Subtotal 方 法 的 用 法 


Range.Subtotal 方 法 用 于 创建 指定 区 域 或 当前 区 域 (如 果 该 区 域 为 单个 单元 格 ) 的 分 类 汇总 。 其 语法 格式 为 : 表达 式 .Subtotal (GtoupBy，Function，TotalList，Replace，PageBreaks，SumtmatyBelowData) 。 


其 中 ，GroupBy 是 必需 参数 ， 用 于 指定 要 作为 分 组 依据 的 字段 为 基于 1 的 整数 偏 移 量 。Function 是 必需 参数 ， 用 于 指定 分 类 汇总 函数 (具体 的 函数 请 参看 帮助 文件 ) 。TotalList 是 必需 参数 ， 用 于 指定 基于 1 的 


字段 偏 移 量 数 组 ， 它 指明 将 被 分 类 汇总 的 字段 。Replace 是 可 选 参 数 ， 如 果 其 值 为 True， 则 替换 现 有 的 分 类 汇总 ， 默 认 值 为 True。PageBreaks 是 可 选 参 数 ， 如 果 其 值 为 True， 则 在 每 一 组 之 后 添加 分 页 符 ， 默 认 
值 为 False。SummaryBelowData 是 可 选 和 参数 ， 用 于 指定 放置 相对 于 分 类 汇总 的 汇总 数据 ， 其 值 为 两 个 XISummaryRow 常 量 : 
xlSummatryBelow， 用 于 指定 汇 总 行 在 大 纲 中 位 于 明细 数据 行 的 下 方 。 


一 个 是 xlSummatyAbove， 用 于 指定 汇总 行 在 大 纲 中 位 于 明细 数据 行 的 上 方 ; 另 一 个 是 


步骤 04 为 命令 按钮 指定 宏 。 选 择 “按钮 ( 窗 体 控件 ) ”控件 ， 在 工作 表 适 当 的 位 置 绘制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 SortTotal 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 
定 ” 按 钮 。 


步骤 05 运行 SortTotal0 过 程 代码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “ 按 商 品名 称 分 类 统计 入 库 数 量 及 金额 ”， 然 后 单 击 该 按钮 ， 即 可 运行 SortTotal0 过 程 代码 ， 如 下 图 所 示 。 


E F 
数量 金额 
¥ 6500, Ol 
¥ 3250.0 ] 
¥ 3250. 按 商 品名 种 分 类 统计 
¥ 2600. 1 六 库 数 重 及 金额 
¥1950, OC 
¥ 4000. OC 
200. 按 商品 代码 进行 逢 
T1000. 序 排列 
¥10200. : | 
¥5100. 
¥10200. 
¥ 2100, Oc 
¥ 900. 
¥1200. 
¥10400. 
¥ 3900. 


步骤 06 ”弹出 提示 框 。 此 时 会 弹出 提示 框 ， 提 示 用 户 将 以 商品 名 称 为 依据 对 入 库 记 录 进 行 排序 ， 单 击 “ 是 ”按钮 即 可 ， 如 下 图 所 示 。 


商品 名 种 单价 数 重 金额 
纯 平 显示 器 。 丫 800. 00 5 ¥f4000. 00 
纯 平 显示 器 。 站 800. 0 Ee 
¥ a00. Microsoft Excel 
1400. 00 

¥1400, py 

¥1400. Oc < 
1400, v 
1400.1 
¥650,1 
¥650. 


以 商品 名 称 为 依据 对 入 库 记 如 进行 排序 


液晶 显 未 姨 
液晶 显示 研 
液晶 显示 闸 
液 力 时 示 履 


CPU 
CPU 
CPU 
主机 
主机 
打印 机 
打印 机 


650. 0c 

650, 

¥ 650. 0 
2800. 
T2800. 
T1700. 00 
1700. 


T SeIU. 
¥ 2600., 
¥1950. 
11200. 
16800. 
10200. 
¥ 5100. 


00| 


E 

9 
+ 
J 
4 
6 
6 
ce: 
6 


re ¥1700.0 ¥10200. ot 


| ce 且 浊 和 Sm 


E C DT F 
日 期 商品 代码 商品 名 种 “| 单 术 [车 多 额 
201871715 NM-003 CEFT ¥650,cC ¥ e500, 
2018/1/18 NH-003 CPU ¥650. ¥ 3250. 
2018/1/25 NH-003 CPU ¥650.1 ¥3250. 
2018/1/28 NH-003 CPU ¥650.0 ¥ 2600, 
2018/2/2 NH-003 CPU ¥650.1 ¥1950. 
CET 汇总 ¥17550., 
证 平 吕 示 请 ¥ 4000. 0 
得 平 显示 本 和 800. ¥ 3200. 
生平 显示 妖 。 丫 800. ¥1600,1 
第 平 显示 姻 汇总 ¥8800. 0 
打印 机 ¥1700. ¥10200. 
打印 机 ¥1700, ¥5100. 
打印 机 ¥1700. ¥10200. 
打印 机 汇总 ¥ 25500. 
闪存 条 ¥2100, 
内 三 条 ¥ 900. 
内 存 条 ¥1200., 
z 内 存 条 汇总 ¥ 4200, 


CO =] 


2018/1/15 NM-001 ¥ 800. 
2018/1/25 NW-001 


2018/2/2 NM-001 


2018/1/18 NH-005 
2018/1/25 N-005 
2018/1/28 MN-005 


¥ 300.0 
¥ 300. 
¥ 300. 


2018/1/15 NM-008 
2018/1/28 NH-008 
2018/2/2 NM-008 


| 商品 基本 信息 


11.2.2 编号 代码 变更 分 级 显示 


对 入 库 记 录 按 商品 名 称 汇总 后 ， 还 可 以 通过 变更 分 级 显示 的 级 别 来 查看 不 同 级 别 下 的 显示 效果 。 具 体操 作 如 下 。 


步骤 01 选择 命令 按钮 控件 。 继 续 上 一 小 节 的 操作 ， 在 “开发 工具 ”选项 卡 下 的 “控件 ”组 中 单 击 “ 插 入 ”按钮 ， 在 展开 的 列表 中 单 击 “ActiveX 控 件 ”选项 组 中 的 “命令 按钮 (ActiveX 控 件 )“ 


示 ， 如 下 左 图 所 示 。 


见面 布局 。 公式 数据 9 视图 | 并 友 I[ 具 | Power Pivot 


录制 实 Ei 
: ' 寺 一 多 国 查看 代 


更 用 相对 引用 


Excel © 
加 载 项 


加 者 空 

口 国 四 向 国 @| 

| 1Ao 和 图 国人 鳃 | 

EB Cc D ”ActiveX 控件 F 
商品 代码 商品 名 称 单 协 NBS 措 辐 国 妈 息 额 

a/1/15 M-003 CPU 站 65I 侍 |@@ A 加 下 I ¥6500. 00 
a/1/18 MN-003 CPU ¥ 65U-UU ¥ 3250. 00 
a/1/25 NM-003 CPU ¥650.00 ”3250. 00 
8/1/28 MN-003 CPU ¥ 650. 00 | ¥2600.00 
3/2/2 NM-003 __CP ff650.00 | ¥1950.00 


AE 


¥10200. 
¥ 2100.0 
¥ 900., 
¥1200., 
¥10400. 
¥ 3900. 
¥ 7000., 
¥ 2800. 
¥ 2800. 
¥ 4200., 
¥ 4200. 
¥ 2100. 
¥ 2100., 
¥ 2100. 
¥11200., 1 
¥16800. 


步骤 03 ”设置 命令 按钮 控件 的 属性 。 将 ”( 名 称 ) ”属性 设置 为 ChangeButton， 将 Caption 属 性 设置 为 “变更 大 纲 级 别 ”， 将 Font 属 性 设置 为 微软 雅 黑 、 粗 体 、 五 号 ， 如 下 图 所 示 。 


技 字 母 奈 ” 按 分 类 序 
{名称 ) ChanzeButton 


hccel erator 
AutoLoad False 


AutosSlze False 

ackCol or [| &H8000000F& 
BackStyle 1 一 tmBackStyleDpague 
Caption 楷 更 大 纲 级 列 

Enabled True 

Pont 微软 雅昌 

ForeColor 图 #30000012& 

Hel ght 40.5 


步骤 04 查看 设置 属性 后 的 效果 。 完 成 命令 按钮 控件 属性 的 设置 后 ， 关 闭 “ 属 性 ”窗口 ， 返 回 工 作 表 。 此 时 可 看 到 命令 按钮 按照 设置 的 属性 进行 了 相应 调整 ， 得 到 如 下 图 所 示 的 效果 。 


¥ 3200. 
¥1600. 按 了 丙 品 代码 进行 升 
¥ 838800.0 序 排列 
¥ 10200. 
¥5100. 
¥ 10200. 
¥ 25500. 
¥ 2100. 0 
¥ 900. oc 
¥1200. 5 
¥ 4200. ¢ 
¥ 10400. 
¥ 3900. 
¥14300. ( 
¥ 7000. 
¥ 2800. 
¥ 2800. 


步骤 05 ”打开 代码 窗口 。 右 击 “ 变 更 大 纲 级 别 ” 按 钮 ， 在 弹出 的 快捷 菜单 中 单 击 “ 查 看 代码 ”命令 ， 如 右 图 所 示 ， 打 开 该 命令 按钮 对 应 的 事件 代码 窗口 。 


¥10200. 00 | 3% 韵 切 中 


¥ 25500. 00 ep z 
目 (OQ 


¥ 900. 00 屿 ”粘贴 (P) 
¥ 1200. 00 加 是 中 


¥ 4200. 00 
¥10400. 00 
¥ 3900. 00 
¥14300. 00 
¥ 7000. 00 
¥ 2800. 00 


步骤 06 为 “变更 大 纲 级 别 ” 按 钮 添加 对 应 的 事件 代码 。 在 打开 的 代码 窗口 中 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代 码 是 “变更 大 纲 级 别 ” 按 钮 对 应 事件 的 前 半 部 分 代码 ， 主 要 用 于 判断 存储 单 击 次 数 的 
变量 是 否 为 1 或 0。 如 果 是 ， 则 将 大 纲 层次 设置 为 3 级 。 


ChangeButton 


' 定义 变 旱 i 为 公共 变 至 
Publlc | As Inteeer z 四 
又 溉 列 按 香 对 应 的 鲁 慎 过 程 
Bre Sub ChanzeButton Clic | 
HsgBox “变更 入 rae 0 的 层次 * 
当 利 一 次 单 击 或 变量 i 的 值 为 1 时 ， 设置 大 列 纹 别 为 3 级 
It1=0Oor1l=1 Then 
Activeshzet Outlin ShowLevels 3 
HsgBox “现在 的 后 次 设 定 为 3” 
1 = 2 
Exit Sub 
End I+t 


步骤 07 编写 第 2 次 和 第 3 次 单 击 按钮 时 对 应 的 事件 代码 。 在 代码 窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 并 保存 ， 该 段 代码 是 “变更 大 纲 级 别 ” 按 钮 对 应 事件 的 后 半 部 分 代码 ， 主 要 用 于 判断 第 2 次 、 第 3 
次 单 击 按钮 时 执行 的 相应 操作 。 


当 第 二 交 单 击 或 变 重 1 的 值 为 2 时 ， 设 直 大 网 级 别 为 2 级 
It 1 = 2 Then 
Activesheet. Outline. ShowLevels 2 
MsgBox “现在 的 车 ;六 设 下 为 。” 2” 
1 三 3 
Exit Sub 
三 次 单 击 或 变量 1 的 值 为 3 时 ， 设 下 太 纲 级 别 为 1 级 
= 3 Then 
wa Dalton ou wal 1 
I “现在 的 层次 设 定 为 1 
三 二 
Exit Sub 
End I+t 
End Sub 


ss 


< 


知识 链接 ”变更 大 纲 级 别 
大 纲 级 别 是 指 分 类 汇总 或 分 组 后 的 分 级 显示 级 别 ， 在 Excel VBA 中 ， 可 以 使 用 Outline 对 象 的 ShowLevels 方 法 来 切换 大 纲 级 别 。 
重点 语法 与 代码 剖析 : Outline.ShowLevels 方 法 的 用 法 


Outline.ShowLevels 方 法 用 于 显示 指定 行 号 和 列 号 在 分 级 显示 中 的 层次 。 其 语法 格式 为 : 表达 式 .ShowLevels (RowLevels，ColumnLevels) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Outline 对 象 的 变量 。RowLevels 是 
可 选 和 参数 ， 用 于 指定 分 级 显示 中 的 行 层 次 。 如 果 该 分 级 显示 包含 的 层次 数 少 于 指定 层次 ， 则 显示 所 有 层次 ; 如 果 该 参数 为 0 或 省 略 该 参数 ， 则 不 对 行 采取 任何 操作 。ColumnLevels 是 可 选 和 参数， 用 于 指定 分 级 
显示 中 的 列 层 次 。 如 果 该 分 级 显示 包含 的 层次 数 少 于 指定 层次 ， 则 显示 所 有 层次 ; 如果 该 参数 为 0 或 当 略 该 参数 ， 则 不 对 列 采取 任何 操作 。 需 要 注意 的 是 ， 使 用 该 方法 时 ， 必 须 至 少 指 定 一 个 参数 。 


步骤 08 退出 命令 按钮 控件 的 设计 。 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ”组 中 的 “设计 模式 ”按钮 ， 退 出 命令 按钮 控件 的 设计 模式 ， 如 下 图 所 示 。 


Exce| COM 加 载 项 搬入 


= 其 入 ("Forms.CommandButton.1"“) 


D FE 
而 豆 吉 和 单价 效 重 金额 

CPU ¥ 650. 00 10  ¥6500.00 
CPU ¥ 650. 00 5 ¥3250. 00 


步骤 09 查看 “变更 大 纲 级 别 ” 按 钮 的 事件 效果 。 退 出 设计 模式 后 ， 单 击 “ 变 更 大 纲 级 别 ” 按 钮 ， 如 下 图 所 示 。 


3 5100.1 
B10200.1 
15 ¥25500.,. 
了 2100.1 
要 ¥ 900. 
4 和 1200.1 
14 4200. 
8 10400.1 


3 和 ¥3900. 
11 ¥14300.,1 


5 羊 7000.， 
2 ¥f2800. 
2 ¥f2800. 


步骤 10 ”弹出 提示 框 。 此 时 会 弹出 提示 框 ， 提 示 用 户 将 要 变更 入 库 记录 汇总 数据 中 大 纲 的 层次 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 左 图 所 示 。 


金额 
¥6500,. 00 
T 3250. 00 
¥ a Microsoft Excal 
千 习 


¥ 2100. 00 
¥ 900. 00 


OoSooocoooooos 


6500. 00 
¥ 3250. 00 
¥ 3250. 00 按 了 商品 名 种 分 类 统计 
2 Microsoft Excel 和 金额 
¥17550. 
了 4000. 
¥ 3200. 
16800. 
¥ 8800. 
¥10200. 
¥ 5100, 
¥10200. 00 
15 ¥25500.00 
f DDO, OU 


步骤 12 ”第 2 次 单 击 “ 变 更 大 纲 级 别 ” 按 钮 。 可 看 到 工作 表 还 是 以 3 级 层次 显示 分 类 汇总 结果 ， 再 次 单 击 “变更 大 纲 级 别 ” 按 钮 ， 如 下 图 所 示 。 


he” [J 
Et 


起 B 

日 期 商品 代码 从 
2018/1/15 NM-003 / 
2018/1/18 N-003 RB 9 ] 
2018/1/25 NM-003 1 T 按 商 品名 种 分 类 统计 
2018/1/28 NM-003 Ch 9 六 库 数量 及 人 金额 
2018/2/2 -003 TT 


2018/1/15 K-001 
2018/1/25 N-001 
2018/2/2 -001 


= | ， 1。 1 。 1 ， 
FF 的 全 器 下 ef 二 


2018/1/18 NW-005 
2018/1/25 MN-005 
2018/1/28 NW-005 


Ee Cy 


2018/1/15 NW-008 


D 
单价 数量 
¥650. 00 
¥650. 00 置 ， 
闻 650. 00 3250. 00 按 商品 名 称 分 类 统计 
¥650. 00 .0 入 库 数 重 及 金额 
¥650. Pe 
¥ 800, 
¥ 800., 0 
¥ 800, 
¥1700.0 
¥1700.1 
¥1700.. 
¥ 300, 
¥ 300. 0 
¥ 300, 4 ¥1200.00 
¥1300 8 ¥10400. 00 


步骤 14 ”查看 变更 大 纲 级 别 后 的 效果 。 工 作 表 中 将 分 类 汇总 显示 的 级 别 层次 设置 为 2 级 ， 并 弹出 提示 框 ， 提 示 用 户 现在 的 层次 级 别 为 2 级 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 


妆 宇 金额 Microsoft Excel 和 
27| 和 丫 1 人 0 | 
ll  ¥88 3 进行 站 
15 站 255 现在 的 层次 设 定 为 2 
14 ¥42 


11 ¥143 
15 ¥f210 
9 ¥f63 
10| ¥ 280mmme 
112 ¥125650. 00 


步骤 15 ”第 3 次 单 击 “ 变 更 大 纲 级 别 ”按钮 。 返 回 工作 表 ， 可 看 到 分 类 汇总 的 当前 层次 为 2 级 ， 再 次 单 击 “ 变 更 大 纲 级 别 ” 按 钮 ， 如 下 图 所 示 。 


步骤 16 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 将 要 变更 入 库 记 录 汇 总 数据 中 大 纲 的 层次 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 左 图 所 示 。 


| F 
金额 
7 了 | ¥17550. 00 
Y¥ apa ~~ 过 高 口 可 再 :直行 乔 1 
¥255 Microsoft Excel / 
¥ 42 
¥143 
¥210 
¥63 
10 ¥280 
112 ¥ 1256 


商品 代码 商品 名 称 ”单价 
总 计 


Microsoft Excel ~ BB 


PP 


步骤 18 将 当前 工作 表 的 分 类 汇总 大 纲 级 别 设置 为 3 级 。 再 次 单 击 “ 变 更 大 纲 级 别 ” 按 钮 ， 系 统 会 弹出 提示 框 提 示 变 更 ， 然 后 弹出 下 一 个 提示 框 ， 提 示 现 在 的 层次 级 别 为 3 级 ， 单 击 “ 确 定 ”按钮 即 可 ， 
如 下 图 所 示 。 


B C 

日 期 商品 代码 ”商品 名 称 单价 

| Microsoft Excel Xe CEU ¥ 650. 二 
CPU ¥ 650. 
CPU ¥ 650, 
CPU ¥ 650. 1 
CPU ¥ 650., 
CPU 汇总 
冲 平 也 示 荷 ， 站 800. 
冲 平 吕 示 落 千 800. 
冲 平 吕 示 详 千 800. 
第 平 显示 覆 汇总 

2018/1/18 M-005 打印 机 ¥1700. 

2018/1/25 M-005 打印 机 ¥1700.0 

2018/1/28 NM-005 打印 机 ¥1700,. 
打印 机 汇总 


步骤 19 制作 “隐藏 分 类 汇总 大 纲 ” 按 钮 。 在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ActiveX 控 件 ” 选 项 组 中 的 “命令 按钮 (ActiveX 控 件 ) ”图 标 ， 如 下 图 
所 示 。 在 适当 位 置 绘制 按钮 。 


1 
二 
2 
4 
J 
0 _ 
a 
8 
EE 
10 | 


2 
my 


视图 和 天 点 | 具 Power Pivot 
MM ae | 唱 


加 Excel COM 加 载 项 设计 模式 Qj 查看 代码 有 
载 顶 “加 载 项 pp 
J 表单 控件 
加 和 同 国 ©@| 


| 站 Aa 加 器用 国 || 
BE | _ HM D ActiveX 控件 
品 代码 ”商品 名 称 ”单价 _/ 改 辆 回国 
003 CPU 寺 |®©@ALE | f 6500. On 
T3250. On 


步骤 20 ”设置 绘制 的 命令 按钮 控件 的 属性 。 打 开 “ 属 性 ”窗口 ,将 ”( 名 称 ) ”属性 设置 为 ClearButton1， 将 Caption 属 性 设置 为 “隐藏 分 类 汇总 大 纲 ”， 将 Font 属 性 设置 为 微软 雅 黑 、 粗 体 、 五 号 ， 
如 下 图 所 示 。 


按 字 和 母 原 ” 按 分 类 序 

【名 称 ) ClearButtonl 
Accel erator | 

AutoLoad False 


AutoS1ize False 

BackCol or OD #H3000000F& 
BackStyle 1 -— tmBacksty]eDpaque 
Caption 隐藏 分 类 汇总 太 纲 
Enabled True 

Font 微软 雅 娃 

ForeCol or 国 tH300000128 
et 37. 5 


步骤 21 编写 “隐藏 分 类 汇总 大 纲 ” 按 钮 对 应 的 事件 代码 。 打 开 “ 隐 藏 分 类 汇总 大 纲 ” 按 钮 对 应 的 代码 窗口 ， 在 其 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 隐藏 分 级 显示 大 纲 列表 。 


Sk 


ClearButton_Click 


Private Sub ClearButtonl ClickO 
' 隐藏 分 类 汇总 显示 级 别 太 纲 
Selection.ClearOutline 
提 不 隐 着 成 功 
MsgBox “已 隐 着 分 类 汇总 显示 级 别 六 纲 ” 
End Sub 


知识 链接 ”隐藏 分 级 显示 大 纲 列表 
创建 分 类 汇总 后 ， 窗 口 左 侧 会 显示 分 级 显示 大 岗 列 表 ， 在 其 中 可 以 单 击 登 加 按钮 ， 展 开 或 隐藏 详细 数据 。 可 使 用 Range 对 象 的 ClearOutline 方 法 来 隐藏 指定 区 域 的 分 级 显示 大 岗 列表 。 


重点 语法 与 代码 剖析 : Range.ClearOutline 方 法 的 用 法 


Range.ClearOutline 方 法 用 于 清除 指定 区 域 的 分 级 显示 ， 其 语法 格式 为 : 表达 式 .ClearOutline。 其 中 ，“ 表 达 式 ”是 一 个 代表 Range 对 象 的 变量 。 


步骤 22 查看 “隐藏 分 类 汇总 大 纲 ” 按 钮 的 事件 效果 。 返 回 Excel 视 图 ， 退 出 设计 模式 ， 单 击 “ 隐 藏 分 类 汇总 大 纲 ” 按 钮 ， 如 下 图 所 示 。 


6 ¥10200. 
15| ¥ 25500. 
¥ 2100. 

站 900. 
¥ 1200, 
¥ 4200. 
¥10400,. 
¥ 3900. 
14300. 
¥ 7000. 
¥ 2800. 
¥ 2800. 
¥ 4200. 


CPU 汇总 27| ¥17550. 00 

旺 平 显示 姻 。 丫 800. 5 ¥4000.00 

纯 壮 亚 示 评 ¥ 800. | Microsoft Excel 并 

纯 平 显示 左 闻 800. 00| 按 商 品 代码 进行 升 
毕 平 显示 罕 汇总 | 序 排列 
打印 机 和 1700. 00| 已 甩 藉 了 分 类 汇总 旺 示 和 级 别 大 网 

打印 机 ¥1700. 

打印 机 ¥1700. 

打印 机 汇总 

内 存 杀 ¥ 300.1 

和 内行 条 ¥ 300. 

内 和 存 条 ¥ 300. 00. 

内 存 条 汇总 14 ¥f4200. 

扫 摘 忆 ¥1300. a ¥10400. 

扫描 仅 ¥1300. 3 ¥3900., 

扫 捆 区 汇总 11 ¥14300. 

辣 国 亚 薄 划 站 1400， 5 F7000. 

到 直 | li 


步骤 24 ”查看 单 击 “ 确 定 ” 按 钮 后 的 效果 。 此 时 可 以 看 到 工作 表 左 侧 的 分 类 显示 大 纲 列表 已 被 隐藏 ， 得 到 如 下 图 所 示 的 效果 。 


D E FF 
金额 


B C 
. | 商品 代码 商品 名 称 单价 数量 
2018/1/15 MN-003 CPU ¥ 650, 00 1 
2018/1/18 NW-003 CPU ¥650.,1 
2018/1/25 NW-003 CPU ¥ 650. 
2018/1/28 NW-003 CPU ¥650. 
2018/2/2 K-003 CPU ¥ 650. 
得 半 显 示 姨 。 站 800. 
征 平 显示 罕 。 站 800. 


¥é6500. 
¥ 3250. 
¥ 3250. 
¥ 2600. 
¥1950. 
¥ 4000. 
¥ 3200. 
¥1600. 
¥10200. 


-= = = 


2018/1/25 NM-001 
2018/2/2 NH-001 


2018/1/18 NW-005 打印 机 ¥1700. 


2018/1/25 NM-005 
2018/1/28 NWN-005 
2018/1/15 NM-008 
2018/1/28 K-008 

2018/2/2 N-008 


打印 机 
打印 机 
内 存 条 
内 存 条 
内 存 条 


¥1700., 

¥1700. 
¥ 300.1 
¥ 300., 
¥ 300., 


¥5100., 
¥ 10200. 
¥ 2100. 

¥ 900. 
¥1200. 


扫描 仪 
扫描 仪 


“i = P= 


T1300., 10400. 


¥1300.¢C 


2018/1/15 NM-006 


0 
5 
5 
4 
3 
5 
4 
症 平 显示 器 。 丫 800. 00 2 
6 
3 
6 
7 
3 
4 
3 
2018/1/18 NM-006 3 


面 
FP 


步骤 25 ”添加 命令 按钮 控件 并 设置 其 属性 。 在 工作 表 中 新 绘制 一 个 命令 按钮 控件 ， 然 后 打开 其 “属性 ”窗口 ,设置 ”( 名 称 ) ”属性 为 RemoveTotal1，Caption 属 性 为 “ 移 除 分 类 汇总 ”，Font 属 性 
为 微软 雅 黑 、 粗 体 、 五 号 ， 如 下 图 所 示 。 


RemoveTotall CommandButton 
按 字 母 序 ” 按 分 类 序 
RemoveTotall 
Accel erator 
AutoLoad 
AuatoSlze 
BackCol or 
BackStyle 


False 

False 

[DL] HhH8000000F& 

1 一 tmBaclksStvLe0paqgue 


移 除 分 类 污 -总 


[Eaptleonm 
Enabled True 


人 秽 软 雅 串 
国 #H30000012& 
27. 75 


IF Dnt 
F or eCol or 
Hei ght 


步骤 26 ”查看 设置 命令 按钮 属性 后 的 效果 。 关 闭 “ 属 性 ”窗口 ， 返 回 工作 表 ， 可 看 到 添加 的 命令 按钮 已 按 设置 的 属性 进行 相应 的 改变 ， 右 击 “ 移 除 分 类 汇总 ”按钮 ， 在 弹出 的 快捷 菜单 中 单 击 “ 查 看 代 
码 ” 命 令 ， 如 右 图 所 示 。 


4 闻 1200. 00 
14 4200.00 
8 ¥10400. 00 
3 3900. 00 
11 ¥14300.00 
5 7000,. 00 EE 
2 2800. 00 一 | 畏 复制 (QO 
2 2800.00 [i 
3 4200.00 所 ”粘贴 中 
3 4200.00 
15 ¥21000.00 
3 F2100.00 
3 2100,00 


步骤 27 编写 “ 移 除 分 类 汇总 ”按钮 对 应 的 事件 代码 。 打 开 相 应 的 代码 窗口 ， 在 其 中 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 用 于 选中 当前 工作 表 中 的 数据 ， 然 后 移 除 当 前 工作 表 中 的 分 类 汇总 数据 ， 并 保 
留 筛选 器 按钮 。 


RemoveTotall 


- 移 除 分 类 汇总 按理 对 应 人 
Private ee RemoveTotall _Click) 


' 选择 要 移 除 分 类 汇总 的 单元 格 区 域 
Worksheetst, 六 库 记 录 ”) .Range(”A1”).Select 


' 称 除 类 汇总 
Selection. RemoveSubtotal 


"提示 移 除 成 功 


MsgBox “成 功 移 除 分 类 汇总 数据 ” 
End Sub 


知识 链接 “Range.RemoveSubtotal 方 法 
在 Excel VBA 中 ， 如 果 要 删除 分 类 汇总 ， 可 使 用 Range 对 象 的 RemoveSubtotal 方 法 。 
重点 语法 与 代码 剖析 : Range.RemoveSubtota 方 法 的 语法 格式 及 使 用 说 明 


Range.RemoveSubtotal 方 法 用 于 删除 分 类 汇总 。 其 语法 格式 为 : 表达 式 .RemoveSubtotal。 其 中 ，“ 表 达 式 ”是 一 个 代表 Range 对 象 的 变量 。 


步骤 28 查看 “ 移 除 分 类 汇总 ”按钮 的 事件 效果 。 返 回 Exce| 视 图 ， 退 出 设计 模式 ， 单 击 工作 表 中 的 “ 移 除 分 类 汇总 ”按钮 ， 如 下 图 所 示 。 


自 闻 10200. | 
15 ¥25500.,1 
¥ 2100. 
¥ 900,. 
¥ 1200. 
¥ 4200,. 00 
¥ 10400. 
¥ 3900., 
¥14300,. 
¥ 7000. Or 
¥ 2800. 
¥ 2800. 
¥ 4200. OC 
¥ 4200. 0 


¥ 5100. 00 
9 Microsoft Exce| 


¥1700. C 
¥1700. 
¥ 300. 
¥ 300. 
¥ 300. 
¥1300. ( 
¥1300, 
¥1400. 
¥1400. 
¥1400. 
¥1400. 
¥1400. 00 
¥ 700. 00 
¥700. 00 
入 入 库 记录 


¥ SO Wy 
¥ 4200. 00 
¥ 4200. 00 
¥ 2100. 00 
¥ 2100. 00 


步骤 30 ”查看 移 除 分 类 汇总 数据 后 的 效果 。 工 作 表 中 的 分 类 汇总 数据 及 显示 级 别 大 纲 列 表 都 被 移 除 了 ， 得 到 如 右 图 所 示 的 效果 。 


金额 
¥ 6500., 
¥ 3250., 
¥ 3250. 按 商 品名 种 分 类 统计 
¥ 2600. 0 入 库 数 量 及 金额 
¥1950, C 
¥ 4000, € 


¥ 3200. 00 | EE 
按 商 品 代码 进行 逢 
¥1600. ’ 序 排 列 


1 本 | 可 | 
BB B48 B48 


人 
mi 


¥ 10200., 
¥ 5100. Ou 
¥ 10200, 0 
¥ 2100, 
¥ 900. 
¥1200. 
¥ 10400. 
¥ 3900, 00 
¥ 7000,. O00 
¥ 2800. 
4 2800, 
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le 
十 


人 
| | 
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钢 
二， 
占卜 

Py 
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| | 

-一 
| | 
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11.3 ”快速 查询 入 库 记 录 


如 果 用 户 需 要 查看 满足 特定 条 件 的 入 库 记录 ， 可 以 使 用 Excel 的 筛选 功能 。 本 节 将 使 用 VBA 程 序 代码 实现 按 用 户 输入 的 字段 及 筛选 条 件 筛 选 出 需要 的 结果 ， 以 及 根据 “筛选 条 件 区 域 ”中 的 筛选 条 件 筛 选 
出 需要 的 结果 ， 并 将 其 复制 到 “筛选 结果 显示 区 域 ” 中 。 


扫 码 看 视频 


上: 实例 文件 \ 第 11 章 \ 原 始 文 件 \ 排 序 .xlsm 


: 实例 文件 \ 第 11 章 \ 最 终 文 件 \ 筛 选 .xlsm 


使 用 自动 筛选 和 高 级 筛选 功能 可 以 快速 查询 需要 的 入 库 记 录 人 信息。 本 小 节 将 介绍 如 何 通 过 自动 筛选 功能 来 实现 快速 查询 需要 的 入 库 记 录 人 信息。 具体 操作 如 下 。 


打开 工作 短 。 打 开 原始 文件 ， 将 其 另存 为 “筛选 .xlsm” ， 如 右 图 所 示 。 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 模块 ”命令 ， 插 入 “模块 3”。 


步骤 02 编写 “自动 筛选 (0)” 


商品 代码 商品 名 称 。 单价 


2018/1/15 NM-001 
2018/1/25 NW-001 

2018/2/2 NM-001 
2018/1/15 M-002 
2018/1/25 NH-002 
2018/1/28 NM-002 

2018/2/2 NW-002 

2018/2/2 NH-002 
2018/1/15 NM-003 
2018/1/18 K-003 
2018/1/25 NM-003 
2018/1/28 NW-003 

2018/2/2 NH-003 
2018/1/25 MN-004 

2018/2/2 NM-004 
2018/1/18 NM-005 
2018/1/25 NW-005 
2018/1/28 NM-005 


列 数 ， 以 及 使 用 数组 存储 每 个 字段 的 名 称 。 


第 乎 显示 必 
汪 平 显示 屁 
纯 平 亚 示 冀 
液 胃 守 不 醋 
液 胃 显 示 颖 
液 力 显示 栈 
液晶 亚 示 辣 
滚 轩 显示 栈 
CPU 


和 
变 辣 存 情 工作 表 
Din Sht hs Worksheet 
Worksheets(” 作 库 记 录 ”) 


Set Sht = 


Din Coll hs Integer 


ee 


¥ 800.1 
¥ 800. 
¥ 800. 
¥1400., 
1400. 0' 
¥ 1400., 
¥1400. 
¥1400. 
¥ 850. 
¥650.1 
¥650. 
¥ 650. 
¥650. 
¥ 2800., 
¥ 2800. 1 
¥1700. 00 
¥1700.0 
¥1700. 


过 程 代 码 。 在 打开 的 “模块 3 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 筛选 0” 


Dim Fields (10) As Strine 


For 1=1 


Fields (i) 


Next 1 


To Coll 


= Cells'], 


1) 


数量 


ts Pe hl1’) .CurrentReeion. 
,声明 仇 绷 荐 请 当家 和 作 表 的 字段 项 目 名 称 


金额 
¥ 4000. 
T3200, 
¥1600. 
¥ 7000, 
¥ 2800. 
¥ 2800, 
F4200, 
¥ 4200. 
6500, 
¥ 3250. 
4 3250, 
¥ 2600, 
1950., 
¥11200. ( 
¥16800. 
10200, 
¥5100. 
¥10200.0 


过 程 的 第 1 部 分 代码 ， 主 要 用 于 声明 变量 ， 人 存储 


“入 库 记 录 ” 工 作 表 的 


A 


步骤 03 ”编写 代码 输入 要 筛选 的 字段 并 确定 字段 对 应 的 列 号 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 筛选 ”过 程 的 第 2 部 分 代码 ， 主 要 使 用 InputBox0 函 数 获 


取 用 户 需要 筛选 的 字段 ， 


并 获取 该 字段 对 应 的 列 号 。 


(通用 ) | [自动 种 和 ~ 


. 


输 六 项 委 的 目标 字段 
了 a AAS StrLmg 

utBox “请 输入 需 旦 站 
“表明 变量 j 存 依 输 入 字段 宫 浆 对 


Dim ] AS Integer 
For 1 = 1 To Coll 
If a = Fields(i) Then 
] = 1 
Exit For 
End I 
Next 1 


步骤 04 ”编写 代码 判断 输入 的 筛选 字段 是 否 存 企 ， 知 存在 则 输入 筛选 条 件 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 筛选 ”过 程 的 第 3 部 分 代码 ， 主 要 使 用 If..… 
End If 语句 判断 变量 是 否 等 于 0， 若 是 则 重新 输入 。 


MseBox 
BT 


* 错 入 遍 要 季 选 的 条 件 
Din b As Strine 本 
msg: b = InputBox 人 请 输 六 晴 选 的 条 件 ”) 
Dim rownun As Integer 
rownun = Sht. Range(l’ Al’).CurrentRegion. 
Rows. Count 


步骤 05 编写 代码 判断 输入 的 筛选 条 件 是 否 存 在 ， 若 存在 则 按 指定 的 筛选 条 件 进 行 自动 筛选 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 主 要 运用 判断 筛选 字段 的 方法 判 
断 筛选 条 件 ， 最 后 使 用 AutoFilter 方 法 进行 自动 筛选 。 


(通用 ) ~| | 自动 第 选 
EE 声明 变量 < 存 情 与 输入 的 算 选 条 件 相 同 的 值 
5 2 = 2 To rowrnum 
Tf b = Sht.Cells(x, 3 Then 
= Sht.Cells(x, 1) 


ee ,给 六 的 往 选 菏 答 有 误 ， 请 重新 输 六 ” 
Gbolo mse 
End If 
Sht. Ranee (Cells(l1l, 1), Cellslrownum, 6 ). 
AutoFlilter _ 
Flield:=], Criterial:=b 
End Sub 


知识 链接 ”使 用 Range.AutoFilter 方 法 实现 自动 筛选 
自动 筛选 是 筛选 出 满足 条 件 的 数据 ， 在 Excel VBA 中 可 使 用 Range 对 象 的 AutoFiltet 方 法 实现 自动 筛选 。 
重点 语法 与 代码 剖析 : Range.AutoFilter 方 法 的 用 法 


Range.AutoFiltet 方 法 使 用 “自动 筛选 ”筛选 一 个 列表 。 其 语法 格式 为 : 表达 式 .AutoFilter (Field，Ctiterial ，Operator，Critetia2，VisibleDropDown) 。 其 中 ，Field 是 可 选 参数 ， 主 要 指定 相对 于 作为 筛选 
基准 字段 (从 列表 左 侧 开 始 ， 最 左 侧 的 字段 为 第 1 个 字段 ) 的 字段 的 整 型 偏 移 量 。Ctitetial 是 可 选 参 数 ， 用 于 指定 筛选 条 件 〈 一 个 字符 串 ， 如 “101”) 。 使 用 “=” 可 查找 空 字段 ， 或 者 使 用 “<> ”查找 非 空 
字段 。 如 果 省 略 该 参数 ， 则 搜索 条 件 为 All。 如 果 将 Operator 设 置 为 xlTop10Items ， 则 Critetial 指定 数据 项 个 数 (如 “10”) 。Operatot 是 可 选 参数 ， 用 于 指定 筛选 类 型 的 XIAutoFilterOperator 常 量 之 一 。Criteria2 
是 可 选 参 数 ， 用 于 指定 第 2 个 筛选 条 件 (一 个 字符 囊 ) ， 与 Criterial 和 Opetratot 一 起 组 成 复合 筛选 条 件 。VisibleDropDown 是 可 选 参数 ， 如 果 其 值 为 True， 则 显示 筛选 字段 的 自动 筛选 下 拉 按 钮 ; 如 果 为 False， 则 
隐藏 筛选 字段 的 自动 筛选 下 拉 按 钮 。 其 默认 值 为 True。 需 要 注意 的 是 ， 如 果 忽 略 全 部 参数 ， 此 方法 仅 在 指定 区 域 切换 自动 筛选 下 拉 按 钮 的 显示 与 隐藏 。 


步骤 06 绘制 按钮 控件 并 指定 宏 。 在 工作 表 中 绘制 按钮 控件 ， 弹 出 “指定 宏 ” 对 话 框 ， 在 “ 宏 名 ”列表 框 中 单 击 “ 自 动 筛选 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


步骤 07 ”运行 “自动 筛选 0/” 过 程 代 码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “自动 筛选 ”， 激 活 并 单 击 该 按钮 ， 如 下 图 所 示 。 
LA, 
时 人 

¥ 800,.0 

4 800., 

800 2 二 1600. 自动 筛选 
¥1400., : J | 
¥1400. 
¥1400. 


¥1400.0 4200 i 
¥1400. 4200. Ce 
¥ 650. Oc . 500. Oc 


¥ 800, 00 5 ¥4000. 00 
¥ 800. 00 4| _¥3200., 00| 
¥ 800. 
¥ 1400. 
¥ 1400. 请 樟 入 笋 要 篇 选 移 3 
¥ 1400, 
¥ 1400. 
¥ 1400, 
¥ 650. cs 
¥650| 计生 

¥650.00 5 3250.00 
¥650. 00 4  ¥2600,.00 
¥650. 00 3 ¥1950. 00 
¥ 2800, 00 4 ¥11200.00 
¥ 2800. 00 6 ¥16800.00 


步骤 09 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 没有 输入 的 字段 ， 请 重新 输入 筛选 字段 ， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 下 图 所 示 。 


Microsoft Excel 


数 重 金额 
5 半 4000. 00 
4 ¥ 3200.00 : EE 
Microsoft Excel X 9 动 筛选 


没有 该 字 段 ， 请 重新 输入 往 选 字段 ! 


如 全 码 进行 1 
序 排列 


UT OZUY YY 
T2600. 00 
¥1950. 00 

¥11200. 00 
¥16800. 00 


¥ 800. 00 6 ¥ 4000.,00 
¥ 800. 00 4 ¥3200,00 
¥80 : 
¥ 140 
站 140 请 栓 入 壬 要 簿 选 的 字段 
¥140 


Microsoft Excel 


¥3250.00 
¥ 2600. 
¥1950. 
11200. 0 
¥16800. 0 
¥10200, OC 


步骤 11 输入 筛选 条 件 。 弹 出 下 一 个 输入 对 话 框 ， 提 示 用 户 输入 筛选 条 件 ， 在 文本 框 中 输入 “M-001”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


单价 状 重 金额 
¥ 800. 00 5 F4000. 00 
¥ 80t 


¥ 3250. 
¥ 3250. 
¥ 2600. 
¥ 1950. 
¥11200. 
¥16800. 
¥10200.¢ 


Microsoft Excel 


I 


步骤 13 ”输入 正确 的 筛选 条 件 。 再 次 弹出 输入 筛选 条 件 的 对 话 框 ， 在 文本 框 中 输入 “打印 机 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


单 夫 数 至 金额 

¥ 800.00 5 4000.00 
¥ 300. 00 4 ¥3200.00 
¥ 3 Microsoft Excel 

¥14¢ 

和 丫 14( 请 樟 入 秘 选 的 条 件 

¥14( 

¥14( 

¥14¢ 
¥ 65 
和 / : 


Nr er Me esl es ee er 


¥650.0 ¥ 3250. 00 
¥ 650. 4  ¥2600.00 
¥650. 0( 3 ¥1950.00 
¥ 2800. 1 ¥11200. 00 
¥ 2800. 3 ¥f16800. 00 
¥1700. ¥10200. 00 


和 B C D FE F 

日 期 | 商品 代 和 > | 商品 名称 | 可 单价 | 数量 “| | 金额 | 
2018/1/18 MN-005 打印 机 ¥1700, 00 6 ， 季 10200. 00 
201871725 M-005 打印 机 ¥1700. 00 3 ¥5100.00 
2018/1/28W-005 ”打印 机 ¥1700. 00 6 ¥10200.00 


商品 基本 信息 | 人 库 iC 录 | 孙 人 人 库 iC 录 (+) 
| 人 FIC | 


步骤 15 创建 “解除 自动 筛选 ”按钮 。 在 “开发 工具 ”选项 卡 下 单 击 “ 控 件 ” 组 中 的 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ActiveX 控 件 ” 选 项 组 中 的 “命令 按钮 ActiveX 控 件 ) ”图 标 ， 如 下 右 图 所 
示 。 选 择 命令 按钮 控件 后 ， 在 工作 表 中 的 合适 位 置 绘制 一 个 命令 按钮 。 


AT 雪 撕 审阅 视图 天 点 | 具 Power Pivot 


NA 回 尾 性 IE 
六 


和 
= 


茹 Cn 
Excel| COM 加 载 项 | 9 mh 


加 载 项 表单 控件 
口 国 辐 冉 国 @| 
[ao 自 国 国 害 
EB Cc D ActiveX 控件 
闻 | 商品 代 乱 | 商品 名 称 | 本 单价 dE |[m 呈 转 回国 加 自 

18/1/18 W-005 ”打印 机 ¥1700. 00 EN A 取 瑟 区 00 
18/1/25 NH-005 打印 机 ¥1700. 00 3 一 二 5IUU-00 
18/1/28 N005 打印 机 ¥1700, 00 6 ¥10200,00 


步骤 16 设置 命令 按钮 的 属性 。 打 开 该 命令 按钮 的 “属性 ”窗口 , 设置 ”( 名 称 ) ”属性 为 ClearButton1，Caption 属 性 为 “解除 自动 筛选 ”，Font 属 性 为 微软 雅 黑 、 粗 体 、 五 号 ， 如 下 图 所 示 。 


按 字 母 序 近 分 类 序 

【和 名和) ClearButtonl 
hccel erator 

AutoLoad False 
AutoS1ire False 

BackCol or [LL] &H8000000F& 
BackStyle 1 一 fmbackSty]leDpaqgue 
[aptlonm 解除 自动 师 选 
Enabled True 

Font 俩 软 雅 走 
|ForeColor 国 %H50000012k 
Mei aht 30 而 

Left 137. 25 
Locked True 


步骤 17 编写 命令 按钮 对 应 的 事件 代码 。 打 开 该 命令 按钮 的 代码 窗口 ， 在 其 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 解除 自动 筛选 ， 并 保留 筛选 按钮 。 


ClearBattonl ~ 11 


' 解除 自动 师 选 按钮 对 应 外 事件 过 
Private Sub ClearButtonl C 
eb Chenr Batson Lis 阶 计 按钮 
ActiveSheet. ShowhillData 
End sub 


步骤 18 单 击 “ 解 除 自 动 筛选 ”按钮 。 返 回 工作 表 ， 退 出 设计 模式 ， 单 击 “ 解 除 自动 筛选 ”按钮 ， 如 下 图 所 示 。 


BE C 

让 | 商品 代 乱 | 商品 名 称 | 可 单价 了 | 数量 | 
2018/1/18 NM-005 打印 机 ¥1700. 00 6 
2018/1725 -005 打印 机 ¥1700. 00 3| 
2018/1/28 M-005 打印 机 ¥1700. 00 6 


步骤 19 ”查看 解除 自动 筛选 后 的 效果 。 此 时 工作 表 中 显示 了 全 部 数据 ， 并 保留 了 筛选 按钮 ， 如 下 图 所 示 。 

Ah | BB ee | D | FE F | 
| 商品 做 看 -=| 商品 名 称 =| 单价 。 = 数量 | > 金额 ~ 
20181/1 715 NW-001 证 平 显 示 姨 。 丫 800. 00 5 4000. 00 
2018/1 /25 -O01 疆 平 显示 话 。 千 800. 00 ¥ 3200, Oo 
2018/2/2IM-001 证 平 显 示 妖 。 丫 800. 00 ¥160D. 00 
2018/1 /15M-002 渡 虱 显示 如 于 1400.00 F7000, O00 
2018/1/25 MN-002 液晶 显示 器 站 1400. 00 ¥ 28300. 00 
2018:1/28 WN-0D2 液晶 显示 器 站 1400. 00 ¥ 28300. 00 
2018/2;2 NM-002 液晶 显示 器 站 1400. 00 ¥ 4200. OD 
2018/2/2 NM-002 液晶 显示 器 站 1400. 00 ¥ 4200. OD 
2018A1A15 MN-003 CP ¥ B50. 00 ¥B500. 00 
2018/:1/18 NM-003 CPU ¥ 650, 00 ¥ 3250,. 00 
2018 25 M-003 CPU ¥ 850. 00 ¥ 3250. 0 
¥ 2600. Do 


[TU | 
号 


DO | 一] | 避 : 


按 商 品 代码 进行 升 | 
序 排列 


201or2/2N 003 PU S50. 00 
i120ne 


201 8:1: 25M-004 

2018/2/2 NM-004 
2018:1:18 NM-005 
201871725 NM-005 
2018/1 28M-005 
2018:1:15 NM-006 
2018:17:18 N008 


主机 ¥ 298900, 00 


让 宙 

打印 机 
打印 机 
打印 机 
扫 指 侈 
扫 揪 x 


T2800. 
F1700. 
LTO: 
¥1700. 
¥1300. 
el 


T16800. 
Tloanm 
Ton. 
Tn: 
¥10400. 
¥ S300. 


Un 
DD 
DD 
DD 
DD 
DD 


4 
9 
9 
9 
D 
9 
2018/1/28 NW-003 CPU ¥ S50. 00 4 
J T1950. 00 
4 
b 
B 
9 
9 
9 


音 各 F700. 


| 0 F2100. 00 
入 库 记 录 | 录入 入 库 记 录 | 


商品 基本 信息 


重点 语法 与 代码 剖析 : 解除 自动 筛选 的 方法 


(1) 解除 自动 筛选 状态 并 保留 筛选 按钮 。 要 实现 该 功能 ， 可 以 使 用 Wotksheet.ShowAllData 方 法 ， 使 当前 筛选 列表 的 所 有 行 均 可 见 。 如 果 正 在 使 用 自动 筛选 ， 则 将 下 拉 列 表 框 的 内 容 改 为 “ (全 部 ) ”。 
其 语法 格式 为 : 表达 式 .ShowAllData。 其 中 ，“ 表 达 式 ”是 一 个 代表 Wotksheet 对 象 的 变量 。 另 外 ， 还 可 以 使 用 AutoFiltet.ShowAllData 方 法 。 该 方法 用 于 显示 AutoFiltet 对 象 返 回 的 所 有 数据 。 


(2) 解除 自动 筛选 状态 并 清除 筛选 按钮 。 使 用 Selection.AutoFiltet 方 法 可 以 实现 该 功能 。 


11.3.2 ”编写 代码 实现 高 级 入 选 


除了 使 用 自动 筛选 功能 快速 查询 需要 的 入 库 记 录 外 ， 还 可 以 使 用 高 级 筛选 功能 达到 目的 。 具 体操 作 如 下 。 


步骤 01 创建 高 级 筛选 功能 。 继 续 上 一 小 节 的 操作 ， 在 单元 格 区 域 L1: Q7 中 创建 如 右 图 所 示 的 表格 。 该 表格 分 为 两 部 分 ， 一 部 分 是 筛选 条 件 区 域 ， 另 一 部 分 是 筛选 结果 显示 区 域 。 


机 0 
师 选 条 人 忻 区 域 

日 期 ”| 商品 代码 

| 


z 师 选 结果 显示 区 域 
日 期 商品 代码 商品 名 种 单价 数量 金额 


1 
2 
3 
4 
D 
6 
了 
2 
EE 


步骤 02 编写 代码 。 插 入 一 个 新 的 模块 ， 在 打开 的 “模块 4 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “筛选 特定 的 入 库 记 录 0” 过程 的 前 半 部 分 代码 ， 用 于 声明 变量 ， 存 储 工作 表 中 的 数 
据 区 域 、 筛 选 条 件 区 域 和 筛选 结果 显示 区 域 。 


人 RR 
Sub 肾 选 特定 | "| 六 EE , 
Dim Sht Ms Wy 
Set Sht = Worksheets(” 入 库 记 录 ”) 
Dim rownum As Integer 
nn = Sht. Ranee(’ A1’).CurrentRegion. 


ws. Count 四 

,声明 重生 情 工 作 表 中 的 数据 区 域 
Dim Wuyu hs String 
Quyu = "Al:” + 和 + ey 
ActiveSheet. R Ou 
“声明 变 音 存 入 党 主人 本 袜 这 这 车 二 果 亚 示 区 域 
Dim T1aocT As String 
D1in Jilec ， Ls String 
TiaoT =“L2: Q3 
JTieG = L7:Q7- 


步骤 03” 按 筛选 条 件 区 域 中 的 条 件 筛选 数据 。 在 “模块 4 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “筛选 特定 的 入 库 记 录 ()” 过 程 的 后 半 部 分 代码 ， 主 要 以 对 话 框 提示 筛选 的 数据 区 
域 ， 然 后 使 用 AdvancedFilter 方 法 按 指定 的 筛选 条 件 筛选 数据 并 复制 到 筛选 结果 显示 区 域 。 


变量 存储 提示 对 话 框 的 结果 
Dim Prompt hs Boolean 
Prompt = MsgBox(” 性 + Quwyu 
+ “数据 区域 中 ， 
+ “AL2 到 Q3 的 内 容 为 筛选 条 件 ， 
+“ 冉 将 肾 选 出 的 结果 存放 在 L7 刘 0 ,7 之 下 “ 


vbYesho) 

I Prompt = vbNo Then Exit Sub 

' 师 选 ; 项 中 指定 条 件 的 入 库 记录 

Selection. AdvancedFilter 
Action:=x]lFilterCopy, | 
CriteriaRanee:=Ranee (Tiao]), 
CopyToRanee:=Range (JieG) 

End Sub 


知识 链接 ”使 用 Range.AdvancedFilter 方 法 实现 高 级 筛选 


高 级 筛选 是 根据 条 件 区 域 中 的 利 选 条 件 利 选 出 符合 条 件 的 数据 ， 筛 选 出 的 值 既 在 原 位 置 显示 ， 也 在 指定 区 域 中 显示 。 在 Excel VBA 中 ， 可 使 用 Range 对 象 的 AdvancedFiltet 方 法 来 实现 高 级 筛选 。 
重点 语法 与 代码 剖析 : Range.AdvancedFilter 方 法 的 用 法 
Range.AdvancedFilter 方 法 基于 条 件 区 域 从 列表 中 筛选 或 复制 数据 。 如 果 初 始 选 定 区 域 为 单个 单元 格 ， 则 使 用 单元 格 的 当前 区 域 。 其 语法 格式 为 : 表达 

式 .AdvancedFilter (Action，CriteriaRange，CopyToRange，Unique) 。 其 中 ，Action 是 必需 参数 ， 用 于 指定 是 否 就 地 复制 或 筛选 列表 。 其 值 为 两 个 XlFilterAction 常 量 之 一 ， 若 其 值 为 FilterCopy， 则 将 筛选 出 的 


数据 复制 到 新 位 置 ; 若 其 值 为 xlFilterInPlace， 则 保持 数据 位 置 不 动 。CtiteriaRange 是 可 选 参 数 ， 用 于 指定 条 件 区 域 。 如 果 省 略 该 参数 ， 则 没有 条 件 限 制 。CopyIoRange 是 可 选 参 数 ， 如 果 Action 为 xlFilterCopy， 
则 它 为 复制 行 的 目标 区 域 ， 和 否则， 忽略 该 参数 。Unique 是 可 选 参 数 ， 如 果 其 值 为 Tfue， 则 只 筛选 唯一 记录 ; 如 果 为 False， 则 筛选 符合 条 件 的 所 有 记录 。 其 默认 值 为 False。 


步骤 04 ”绘制 按钮 控件 并 指定 宏 。 在 工作 表 中 的 适当 位 置 绘 制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 筛 选 特定 的 入 库 记 录 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


步骤 05 运行“ 筷 选 特定 的 入 库 记 录 ()” 过 程 代码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “高 级 筛选 ”， 并 激活 该 按钮 。 在 “筛选 条 件 区 域 ” 表 格 中 输入 筛选 条 件 ， 单 击 


DO 


“高 级 筛选 


按钮 ， 如 下 图 所 


1 
第 选 条 件 区 域 


步骤 06 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 在 A1: F27 数 据 区 域 中 ， 以 L2: Q3 的 内 容 为 筛选 条 件 ， 将 筛选 结果 存放 在 L7: Q7 之 下 ， 单 击 “ 是 


”按钮 ， 如 下 图 所 示 。 


a 


步骤 07 ”查看 高 级 筛选 的 结果 。 在 工作 表 的 筛选 结果 显示 区 域 中 显示 了 符合 筛选 条 件 的 数据 ， 效 果 如 下 图 所 示 。 


HN | 0 
-生生 件 区 堪 


L 
1 
2 | 日 期 | 商品 代码 | 商品 名 称 | 单价 。 ”| 数量 | 金额 
3 ne | 
和 4 
5 
6 ”是 选 征 来 袜 示 区 域 
7 | 日 期 商品 代码 ”两 品 名 种 单价 多 齐 多 额 
8 | 2018/1/18 NM-005 打印 机 ¥1700. 00 6 ¥10200. 00 
9 | 2018/1/25 MN-005 打印 机 ¥1700. 00 3 ¥5100.00 
101 2018/1/28 NM-005 打印 机 ¥1700. 00 6 ¥10200.00 
11 
了 
18 
14 


1L5 


步骤 08 再 次 输入 筛选 条 件 。 将 筛选 结果 显示 区 域 中 的 筛选 结果 删除 ， 在 筛选 条 件 区 域 中 的 “单价 ”字段 下 方 输入 “>1400”， 单 击 “ 高 级 筛选 ”按钮 ， 如 下 图 所 示 。 


科 选 结果 显示 区 域 


商品 名 称 单价 数量 

打印 机 ¥1700. 00 6 ¥10200. 00 
打印 机 ¥1700, 00 3 ¥5100,00 
打印 机 ¥1700. 00 6 ¥10200. 00 


步骤 09 ”弹出 提示 框 。 弹 出 提示 框 ， 提 示 用 户 筛选 数据 区 域 、 筛 选 条 件 区 域 及 筛选 结果 显示 区 域 ， 单 击 “ 是 ”按钮 ， 如 下 图 所 示 。 


L | 


MN bb 

需 选 条 件 区 域 
数量 

3 ln 


Microsoft Excel 


2018/1 在 A1:F27 数 据 区 域 中 ， 以 L2 到 Q3 的 内 容 为 秘 选 条 件 ， 再 将 知 选 出 的 结果 存放 在 L7 到 Q7 之 
2018/: 下 
2018/1 

1 2018/1 

2 2013/1 


步骤 10 ”显示 筛选 结果 。 此 时 可 在 筛选 结果 显示 区 域 中 看 到 筛选 出 的 单价 大 于 1400 元 的 商品 ， 效 果 如 右 图 所 示 。 


区 
| 


| 师 选 结果 显示 区 域 
I 日 期 商品 代码 ”商品 名 种 单价 尊重 金额 
2018/1/25 M-004 主机 ¥ 2800. 00 ¥11200. 
2018/2/2 NH-004 ”主机 ¥ 2800. 00 ¥16800. 
2018/1/18 NM-005 打印 机 ¥1700. 00 ¥ 102 
| 201871725 MW-005 ”打印 机 ¥1700. 00 3  ¥5100.00 
2018/1/28 NM-005 打印 机 ¥1700. 00 ¥10200. 00 


Te 
2 

3 
4 
5 
8 
9 
10 
11 
12 
1 3 
14 
15 
16 
17 
181 


本 章 将 使 用 Excel VBA 制 作 一 个 简单 的 投诉 信息 管理 系统 ， 该 系统 有 以 下 功能 : 对 员工 的 英文 名 按 需 求 进行 大 小 写 转换 、 清 除 空格 等 处 理 ; 自动 统计 员工 被 投诉 次 数 ， 按 照 公司 规定 分 别 给 出 处 理 意 
见 ， 并 将 结果 以 批注 形式 添加 到 工作 表 中 以 便于 查看 ; 将 工作 表 中 的 批注 信息 导出 生成 新 工作 表 ， 或 将 一 个 工作 表 中 的 内 容 导 入 另 一 个 工作 表 中 作为 批注 ; 在 批注 中 自动 批量 添加 或 移 除 作 者 信息 。 


在 “投诉 信息 管理 .xlsx” 工 作 簿 的 “投诉 记录 表 ” 中 记录 了 一 月 份 被 投诉 员工 的 信息 。 其 中 ，“ 英 文 名 ” 列 以 首 字母 大 写 的 形式 记录 了 员工 的 英文 名 。 在 实际 工作 中 ， 可 能 会 要 求 英 文 名 全 部 小 写 或 全 
部 大 写 ， 或 去 除 英 文 名 中 的 空格 。 本 节 将 使 用 VBA 程 序 代 码 实现 上 述 对 英文 名 的 处 理 操作 。 


本 


要 码 看 视频 


Le F: 实例 文件 \ 第 12 章 \ 原 始 文件 \ 投 诉 信息 管理 .xlsx 


: 实例 文件 \ 第 12 章 \ 最 终 文件 \ 英 文 名 大 小 写 转换 .xlsm 


若 要 将 字母 全 部 转换 为 小 写 ， 可 使 用 VBA 中 的 LCase0 函 数 来 实现 。 具 体操 作 如 下 。 


步骤 01 打开 工作 簿 。 打 开 原 始 文 件 ， 可 看 到 “一 月 投诉 ”工作 表 中 已 录入 一 月 份 的 投诉 记录 ， 如 下 图 所 示 。 


投诉 记录 表 


英 太 名 扎 号 投诉 事由 抽送 信 鸟 来 源 投诉 人 人 


LOSTIO 
Darmel 
Ada 
Ellott 
Daniel 
Crystal 
Edwrard 
Eric 


co ~ TT PC 


玉昌 于 
郑 字 
多 家 


步骤 02 插入 模块 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (投诉 信息 管理 .xlsx) “ 


加 Solver (SOLYER. ILAE) 


由 - 旺 YBAProject (FUNCERES. ILAR) 
日 -对 YEBAProTECt (【 反 听 信息 和 区 型 -| c= 


步骤 03 ”编写 “全 部 小 写 0” 过 程 代码 。 在 “模块 1 (代码 ) ”窗口 中 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 主要 使 用 LCase() 函 数 将 指定 列 的 英文 字母 全 部 转换 为 小 写 形式 。 


昨 一 DJ 2D1] 
Le 
MD1 .23 
N01 a35 
时 一 口 ] D2 
Li 
中 一 DID 
Lm 
1 5 
Ni om 
4 
Lm Me 
M1 2295 
Li 
中 一 CO 
Wl 
员 一 二 
导 一 口 所 
Lm 
导 一 口 ] 4451 
Li 


选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 " 


乳 备 杰 度 不 好 
对 顾客 的 询 |9]， 奸 之 不 理 a 
务 普 度 亚 革 授 诉 薄 
动作 情歌 ， 加 弃 顾 客 时 间 电话 
服务 赤 度 币 好 授 诉 薄 
服务 亦 度 忆 委 投诉 泣 
动作 尽 前 ， 耽 僵 顾客 时 间 E-mail 
服务 过度 过 分 由 医 
对 顾客 的 询问 ， 置 之 和 理 E-mail 
动作 司 苍 ， 欧 误 厦 客 时 间 投诉 注 
服务 恋 度 慰 劣 挫 诉 注 
对 病害 的 询 I|9]， 加 之 市 理 
服务 术 度 不 好 
腿 务 弯 度 站 分 i 
动作 惰 前 ， 上 腕 全 顾客 时 间 投诉 溥 
对 顾客 的 询问 ,时 之 予 理 投诉 簿 
对 顾 寡 的 询问 ， 畦 之 予 理 E-mail 
服务 赤 麻 症 劣 控诉 注 
动作 届 肯 ,了 腕 吉 顾 客 时 间 投诉 薄 
服务 亦 度 极 凌 投诉 泣 


命令 ， 如 下 图 所 示 。 


浏 妇 十 
阵 妈 十 
Ee 
陈 玄 士 
并 寺 生 
党 小 姐 
判 寺 生 
者 先 和 后 
何 妈 十 
何 小 组 
长 小 组 
术 小 姐 
明 先 生 
相向 汪 
芒 妈 士 
邓 先 生 
张 小 焉 
江 妇 十 
陆 先 生 
成 寺 生 
坊 小 诅 


全 部 小 写 v 
sub 全 部 小 写 O 
" 声明 变量 存 悄 工作 表 | 
Dim sht As Worksheet , 
Set sht = YWorksheet s 人 一 月 投诉 ” 
' 声明 变量 存 悄 需要 实现 字母 转 的 单元 格 区 域 
Dim ain Ls Range 
D1I rownun is Integer 
rownun = sht,. Range(l’ Al’).CurrentRegion, Rows.Count 
sht. Range alls ls, 42, Cells(lrownunm, 2).Select | 
钦 职 选择 | 
= Sel 
和 用 入 证 向 闪 让 人 元 格 中 的 内 容 转 损 为 小 写 形式 
or Each one In 
将 单元 格 中 的 内 容 转 换 为 小 写 形式 
one. Value = LCasekone) 
Next one 
End Sub 


步骤 04 ”选择 按钮 控件 。 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 的 “控件 ”组 中 单 击 “ 插 入 ”按钮 ， 在 展开 的 下 拉 列 表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 右 图 所 示 。 


开 点 | 具 power Pivot U 告诉 我 您 塌 要 做 什么 . 
”|:=| 尾 上 映射 硬性 [ 
博 MC pw = eth 
加 ”Excel COM 加 载 项 本 和 奈 包 “> 出 
载 顶 ”加载 项 入行 对 话 框 | 局 | 哮 [ 数 据 
加 场 项 


Ag 四 a : 
E ActiveX 控件 
口 国 加 国 罗 | 高 
投诉 二 © A Ea 看 一 人 
取 昨 事由 换 这 全 息 来 源 人 
二 服务 态度 不 好 刘 康 


M-01234 “对 顾 寄 的 询问 ， 置 之 不 理 ER 二 
H-01236 ”服务 态度 恶劣 投诉 泣 加 先生 
N-01285 动作 懒散 ， 孙 计 顾 寡 时 间 电话 陈 妇 士 
M-01302 “服务 仿 度 不 好 控诉 漠 加 先生 
N-01305 ”服务 访 度 亚 劣 投诉 满 洛 小 姐 
K-01403 动作 懒散 ， 耽 试 闻 害 时 | 间 E-mail 刘 先 生 
M-01423 服务 仿 度 关 劣 电话 部 先生 


重点 语法 与 代码 剖析 : LCase(0 函 数 的 用 法 
LCase0 函数 用 于 返回 转 成 小 写 的 字符 事 。 其 语法 格式 为 : LCase (string) 。 其 中 ，string 是 必需 参数 ， 它 可 以 是 任何 有 效 的 字符 串 表达 式 。 如 果 string 中 包含 Null， 将 返回 Null。 
需要 注意 的 是 ， 该 函数 只 将 stting 参 数 中 的 大 写字 母 转换 成 小 写字 母 ， 所 有 小 写字 母 和 非 字母 字符 保持 不 变 。 


步骤 05 ”绘制 按钮 控件 并 指定 宏 。 在 工作 表 中 的 适当 位 置 绘制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 全 部 小 写 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


H. 

投诉 记 
编号 
N01 .201 
N01234 
NM-01236 
NM-01285 
N=-01 302 
N01 305 
NM-01403 
N01 423 
N01 425 
N01o06 


i 
tn 


步骤 07 ”查看 转换 后 的 效果 。 程 序 执行 完毕 后 ，“ 英 文 名 ” 列 中 的 字母 全 部 被 转换 为 小 写 形式 了 ， 效 果 如 右 图 所 示 。 


日 期 
i 
171 
Li 


3 


~ | | I 呈 


1 173 阵 拘 


155 茧 背 
1 胡 台 
LAB 阵 兰 
1rB 郝 蚁 
17B ”四 追 


1:10 
1711 
1:11 
1:12 
1/12 “| 希 著 


1 
2 
4 
加 
b 
? 
9 
10 
11 
| 
1s 
1 和 4 
15 
16 


一 ”| 一 | 一 
LI DC | 一] 


1/16 首 字 
1719 至 社 
一 月 投诉 


[CD 
[一 


12.1.2 ”编写 代码 将 字母 全 部 转换 为 大 写 


若 要 将 字母 全 部 转换 为 大 写 ， 可 使 用 VBA 中 的 UCase() 函 数 来 实现 。 具 体操 作 如 下 。 


步骤 01 编写 “全 部 大 写 0” 过 程 代码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 插 入 “模块 2” 


大 写 形式 。 


172 ”| 刘 明 字 


L113 何 子 ' 忻 


1 了 各 昌浩 
1240 刘 明 字 


156 “| 刘 明 宇 


一 DLL 


[IDl236 


HD1 e239 
NR-01302 
N01 .35 
D143 
一 UL da 
开 一 口 1 车 2 二 
-01o08 
NR-—01450 
J -ULlz2ul 
NR-01235 
Lm 


blo1 
K-01S41 


， 人 在 其 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 ， 


投 次 全 息 来 源 投诉 人 


对 顾 寡 的 询问 ， 置 达 小 理 ee 
服务 志 上 度 迟 考 投诉 滋 
动作 申 盘 ， 取 弃 顾 客 时 呈 电话 
服务 态度 涉 好 控诉 清 
服务 过度 亚 泌 捞 诉 湾 
动作 巾 前 ， 了 去 顾 客 时 间 E-mail 
服务 恋 度 亚 营 电话 
对 遇 寡 的 交加 ,下 立 相 理 E-mail 
动作 怡 藤 ， 取 旋 顾 客 时 间 投诉 清 
慑 和 芳 芒 度 二 多 投诉 滋 
下 同志 不 理 电话 
态度 涉 好 电话 
度 证 区 E-mail 
动作 怡 苑 ， 取 弃 顾 客 时 间 投诉 湾 
对 厅 音 的 世上 回 ， 下 过 趟 理 投诉 溥 
对 了 觅 客 的 井口 ， 站 之 个 理 |E-mail 
服务 赤 度 亚 艺 授 诉 尊 
动作 申 环 ， 取 旋 顾 客 时 间 投诉 湾 
服务 志 度 枢 达 控诉 湾 


浊 女 二 
陈 妇 十 
罗 先 生 
陈 女 十 
器 先 生 
法 小 姐 
刘 先 生 
孝 先 生 
何 去 圭 
何 小 姐 
代 小 姐 
李 小 姐 
吉 先 生 
得 先生 
黄 妇 十 
邓 先 生 
张 小 姐 
江 支 十 
陆 先 生 
成 先生 
软 小 组 


该 段 代码 主要 使 用 UCase0) 函 数 将 英文 字母 全 部 转换 为 


“sub 全 部 大 写 0 
Dim sht As Worksheet 
Set sht = ActiveSheet 
Dim rownunmn hs Integer 
rownun = sht.Rang el "Al1"). Creepyihoeion Rows. Count 
" 选择 需 要 更 改 字母 大 小 写 的 单元 格 区 1 或 
sht. Range (Cells (3, 4), Cellsilrownum, 4)).Select 
Dinm al 下 hs Ee 
Set al = Selec 
能 用 入 环 语 光 转 搞 字 生 为 大 写 形 陈 
For Each one In alinm 
one. Value = UCase (one) 
Next one 
End Sub 


步骤 02 绘制 按钮 控件 并 指定 宏 。 选 择 按钮 控件 ， 在 工作 表 中 的 适当 位 置 绘制 按钮 ， 弹 出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 “ 全 部 大 写 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


| 
cB [Hj 


重点 语法 与 代码 剖析 : UCase() 函 数 的 用 法 
UCase0 函 数 用 于 返回 转 成 大 写 的 字符 事 。 其 语法 格式 为 : UCase (string) 。 其 中 ，stting 是 必需 参数 ， 它 可 以 是 任何 有 效 的 字符 囊 表达 式 。 如 果 stting 中 包含 Null， 将 返回 Null。 
注意 : 该 函数 只 将 stting 参 数 中 的 小 写字 母 转 换 成 大 写字 母 ， 所 有 大 写字 母 或 非 字 母 字 符 保 持 不 变 。 


步骤 03 运行 “全 部 大 写 0” 过 程 代码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “全 部 大 写 ”， 然 后 激活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


B 


全 部 小 与 

日 期 被 投诉 人 

1/1 鸭 明 洛 

1/1 陈 掀 

1/2 加 好 

1/2  ” 刘 明 宇 

1/3 陈 掀 
何 子 忻 


投诉 记 
编号 
NM-01201 
J-01234 
J-01236 
J-01285 
J-01302 
J-01305 
证 站 NM-01403 
胡 骅 ric N-01423 
陈 三 janet NM-01425 
赤 B 肯 NM-01506 


步骤 04 查看 转换 后 的 效果 。 程 序 执行 完毕 后 ，“ 英 文 名 ” 列 中 的 所 有 字母 都 被 转换 成 大 写 形式 了 ， 如 下 图 所 示 。 


序号 


投诉 事由 投诉 全 息 来 源 投诉 人 


1 
17 了 2 
1 2 
1 7 3 
| /3 
175 
1:5 
1:8 
178 
1 7/ 吕 
1 
TL 
1/10 
| 
1#1d 
oe: 
Tl 
1118 
1:16 
1/15 


草 轨 于 
隆 折 
何 子 业 
项 蹇 
明 圣 
际 二 
赤 B 肯 
宙 询 
志明 读 
于 


月 投诉 | 


12.1.3 ”编号 代码 将 每 个 单词 首 字母 转换 为 大 写 


-01302 
01 305 


再 一 局 408 


了 一 0 4o00 


-D1201 
N01 2B5 
[ND1 428 

01 305 

ollo2 


R01 2 
NR-ui 405 


oi2ps5 


服 备 杰 度 趟 好 

对 顾 寄 的 询 可 ， 置 之 生理 和 
服务 术 度 亚 东 投诉 得 
开 作 惊 藤 ， 聪 伍 顾 窒 时 间 电话 
服 备 恋 度 趟 好 投诉 省 
服务 弯 度 亚 芝 投诉 知 
动作 巾 豆 ， 取 旋 顾 寄 时 间 E-nail 
服务 术 度 亚 范 电话 
对 顾 寄 的 词 可 ， 丙 之 和 理 E-nail 
动作 司 表 . 职 误 顾客 时 间 投诉 薄 
务 亦 度 亚 省 操 诉 芒 
对 网 客 的 询 品 ， 置 之 十 理 电话 
服 备 志 度 趟 好 电话 
服务 普度 亚当 FE-nail 
动作 怖 能， 了 胶 误 病 半 时 间 投诉 往 
对 顾 寄 的 击 品 ， 置 之 韦 理 损 诉 往 
服务 六 上 度 亚 芝 电话 
对 顾 窒 的 询问 ， 置 之 趟 理 F-mail 
服务 普度 亚当 投诉 省 
动作 怖 能， 耽误 病 诗 时 间 控诉 注 
服务 恋 度 极 车 投诉 注 


划 女 士 
阵 云 士 
二 先生 
际 康 士 
贺 齐 生 
党 小 组 
剂 先生 
条 先生 
何 云 士 
何 小 组 
人 小 组 
邓 小 昌 
胡 先 生 
三 寺 和 主 
直 妆 十 
对 先生 
张 小 组 
江 妆 十 
陆 寺 和 主 
成 先生 
了 


若 要 将 每 个 单词 转换 为 首 字 母 大 写 的 形式 ， 可 结合 使 用 VBA 中 的 Left0、Right0、Mid0、Len0、UCase(0、LCase(0、Instr() 等 字符 串 处 理 函 数 来 实现 。 具 体操 作 如 下 。 


步骤 01 编写 “ 首 字母 大 写 0” 过 程 代码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 插 入 “模块 3” ， 在 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 获取 当前 工作 表 的 行 数 和 单元 格 内 容 。 


Sub 上 自 字母 7 同 
渤 近 < 区 文 若 % 字段 的 所 有 单元 格 区 域 


Dim sht hs Worksheet 

Set sht = ActiveSheet 

Dim rownum hs Integer 

rownun = sht. Raneel’ Al ) .CurrentRegion.Rows.Count 
sht. Ranee (Cells(3, 4), Cells(lrownun, 4)).Select 
For Each one In Selection 


声明 单元 格 对 得 杰 重 
Din alm As Strineg 
' 获取 单元 格 内 容 
aim = one. Yalue 
aim = Trim'(aim) 


步骤 02 编写 代码 获取 字符 串 的 长 度 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 使 用 Len0 函 数 计算 字符 串 的 长 度 ， 并 声明 存储 左 、 中 、 石 字符 串 的 变 


计算 内 容 字 人 符 串 的 长 度 

hs Integer 
en Len(aim) 

: 半月 变量 并 各 如 

Din aimnnum is Integer 
aimnum = 1 

Dim Lstr hs String 

Dim Mstr As String 

Dim Rstr hs Strineg 

第 一 次 入 环 时 左 侧 字符 为 空 
str = 


知识 链接 ”使 用 函数 获取 特定 位 置 的 字符 
要 获取 字符 事 的 首 字符 ， 可 使 用 Left0 函数 获取 字符 串 从 最 左边 算 起 的 一 个 字符 。 要 获取 字符 事 的 尾 字 符 ， 可 使 用 Right0 函数 获取 字符 囊 从 最 右边 算 起 的 一 个 字符 。 


步骤 03 ”编写 代码 设置 字符 串 中 每 个 单词 的 首 字 母 大 写 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 使 用 循环 语句 对 每 个 单元 格 中 的 内 容 分 别 按 左 、 中 、 右 字符 串 设置 首 字 
母 大 写 。 


(II ~ | 首富 
TE 


Do 
' 获取 中 、 右 字 付 上 串 z 
Mstr = Mid(laim, aimnum, 1) 
Rstr = Ri ht Gain leneth - alimnum) 
' 盾 接 为 完整 字 付 串 
aim = Lstr + UCase (Mstr) + LCase (Rstr) 
"找到 下 一 个 空格 的 位 鞋 
aimnum = Instriaimnum, aim, ” “) 
" 犹 取 正字 全 捉 位 首 
Lstr = Lefttaim, aimnum) 
almnunm = almnum + 1 
循环 退出 条 件 
roop Until ainnum = 1 _ 
和 半 转 换 后 的 字 付 串 写 回 时 元 格 中 
one. Yalue = alin 
Next one 
End Sub 


A 


重点 语法 与 代码 剖析 : Left0 和 Right() 等 函数 的 用 法 


Left0 涵 数 用 于 返回 从 指定 字符 串 最 左边 算 起 指定 数量 的 字符 。 其 语法 格式 为 : Left (string，length) 。 其 中 ，string 是 必需 参数 ， 用 于 指定 要 截取 的 字符 串 。 如 果 string 中 包含 Null， 将 返回 Null。length 是 
必需 参数 ， 其 值 为 数值 表达 式 ， 用 于 指定 将 返回 多 少 个 字符 。 如 果 其 值 为 0， 则 返回 零 长 度 字 符 串 〈"") ; 如 果 其 值 大 于 或 等 于 stting 的 字符 数 ， 则 返回 整个 字符 串 。 


Right0 函数 用 于 返回 从 指定 字符 串 最 右边 算 起 指定 数量 的 字符 。 其 语法 格式 为 : Right (stting，length) 。 其 中 ，stting 是 必需 参数 ， 用 于 指定 要 截取 的 字符 事 。 如 果 stting 中 包含 Null， 将 返回 Null。length 
是 必需 参数 ， 其 为 数值 表达 式 ， 用 于 指定 将 返回 多 少 个 字符 。 如 果 其 值 为 0， 则 返回 零 长 度 字符 串 ; 如 果 其 值 大 于 或 等 于 stting 的 字符 数 ， 则 返回 整个 字符 囊 。 


此 外 ， 本 小 节 的 代码 中 还 用 到 了 Mid0、Len0、InStr0 等 字符 串 处 理 函 数 。Mid0 函 数 的 用 法 参见 4.3.2 小 节 
Len0 函 数 用 于 返回 指定 字符 串 的 字符 数 ， 其 语法 格式 为 LEN (stting) 。 其 中 ，string 是 必需 参数 ， 用 于 指定 要 返回 字符 数 的 字符 串 。 


InStt0 函 数 用 于 在 一 个 字符 串 中 从 左 往 右 查找 另 一 个 字符 串 ， 找 到 后 返回 该 字符 串 最 先 出 现 的 位 置 ， 其 语法 格式 为 : InStr ([start，]string1 ，stting2[，compate]) 。 其 中 ，statt 是 可 选 参数 ， 为 一 个 数值 表 
达 式 ， 用 于 指定 查找 的 起 始 位置 。stting1 、stting2 是 必需 参数 ， 分 别 用 于 指定 要 在 其 中 进行 查找 的 字符 串 和 查找 的 内 容 。compatre 是 可 选 参数 ， 用 于 指定 查找 时 进行 字符 串 比 较 的 类 型 ， 具 体 取 值 请 参见 官方 
帮助 文档 。 


步骤 04 ”选择 按钮 控件 。 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 下 的 “控件 ”组 中 单 击 “ 插 入 ”按钮 ， 在 展开 的 下 拉 列 表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


并 点 | 具 Power Pvot V0 告诉 我 你 起 要 做 什么 .. 
NA 回 尾 性 村 鹏 映射 硬性 哩 导入 
em 二 和 = 1 | 也 Ey 
加 。 Excel COM 加 载 项 RE 二 二 代 从 扩展 包 。 因 , 导出 
载 项 “加载 项 [ 引 ] 执行 对 话 框 局 1 剧 新 数据 


加 载 项 表单 控件 XML 


局 二 加 向 国 @ 


COSMO 0 自 国 国 和 


了 F ActiveX 控件 


全 部 大 写 | 口 辐 回国 间 
3 © A ko 1 . 
取 昧 事由 投诉 信息 来 源 投诉 人 

II ee 服务 态度 不 好 电话 刘 文 士 
JI-0l234 ”对 顾客 的 询问 ， 置 之 不 理 E-mail 陈 女 士 
有 -01236 ”服务 态度 恶劣 投诉 清 的 先生 
-01285 ”动作 懒 可 ， 耽 旋 顾 客 时 间 电话 陈 女 士 
上 -01302 “服务 态度 不 好 控诉 济 贸 先 生 
-01305 ”服务 态度 浊 务 授 诉 溥 党 小 组 


步骤 05 ”绘制 按钮 控件 并 指定 宏 。 在 工作 表 中 的 适当 位 置 绘 制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 首 字母 大 写 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ” 按 钮 。 


步骤 06 运行 “ 首 字母 大 写 0” 过 程 代 码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “ 首 字 母 大 写 ”， 然 后 激活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


投诉 记录 表 
编写 


NM-01201 
N01234 
MN-01236 
MN-V1285 


服务 态度 普 乡 


服务 访 度 不 好 


NM-—01]302 
N01305 
NV1 403 
N01423 
N01425 
NM-01506 
N01450 


服务 态度 尝 劣 


服务 访 度 闪 乡 


投诉 事 
服务 访 度 不 好 
对 顾客 的 询问 ,置之不理 E-nai] 


功 作 懒 藤 ， 耽 训 


投诉 漳 


动作 懒 融 ， 辽 弃 顾 容 时 间 电话 


投诉 往 
投诉 得 


顾 窖 时间 E-mail 


电 若 


对 顾 寄 的 词曲， 站 之 个 理 E-mail 
动作 懒散 ， 耽 旋 顾 客 时 间 投诉 漳 


投诉 往 


步骤 07 ”查看 转换 效果 。 程 序 执行 完毕 后 ，“ 英 文 名 ” 列 中 单词 的 首 字 母 都 被 转换 为 大 写 形式 ， 其 余 字母 为 小 写 形式 ， 如 下 图 所 示 。 


站 -DODI 此 Do po 二 


5 pC 一 


12.1.4 ”编写 代码 清除 字母 间 的 空格 


全 部 大 2 | 投诉 记 时 表 | 


抽 站 人 息 来 源 人 


投诉 事由 
限 务 态度 不 好 
对 所 宕 的 多 I 可 ,下 之 十 理 
服务 访 度 普及 授 诉 清 
动作 赂 表 . 取 弃 顾 寄 时 间 电话 
服务 态度 趟 好 投诉 洗 
服 和 寻访 度 渤 各 授 诉 清 
动作 申 苑 ， 取 旋 顾 客 时 间 E-mail 
对 所 宥 的 局 可 ,下 之 千 理 E-mail 
动作 申 喜 ， 取 运 顾 音 时 间 投诉 清 
服务 总 麻 普 淄 投诉 潘 
对 质 谊 的 向 问 ， 直 之 不 理 电话 
限 舅 总 度 二 好 电话 
服务 喜 度 亚 沁 E-mail 
动作 情 毅 ， 聘 顾 寡 时 间 投诉 竹 
对 质 彰 的 划 问 , 直 之 不 理 报 诉 清 
服务 总 订阅 学 电话 
对 质 彰 的 向 问 ,下 之 十 理 E-mail 
服务 访 度 站 分 投诉 潘 
动作 贴 可， 取 弃 顾客 时 间 扣 诉 请 
服务 这 谋 棚 演 投诉 潘 


人 二 
儿 枫 生 
际 豆 士 
如 过 生 
滩 小 想 
则 计生 
部 元 生 
何况 士 
何 小 组 
代 小 姐 


前 十 生 
程 先生 
黄 云 士 
闻 元 生 
张 小 姐 
江 区 十 
陆 先生 
成 先生 
故 小 扯 


若 要 清除 字母 间 的 空格 ， 可 使 用 VBA 中 的 Replace() 函 数 。 有 具体 操作 如 下 。 


步骤 01 ”编写 清除 字母 间 空 格 的 代码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 插 入 “模块 4”， 在 其 代码 窗口 中 输入 如 右 图 所 示 的 代码 段 。 


sub 消除 宇 
哎 际 笑 福 攻 中 的 空格 
Dim sht As Worksheet 
Set sht = ActiveSheet 
Dim rownun hs Integer 


rownun = sht. Ranee( 41’).CurrentRegion. Rows.Count 
sht. Range e (Cells (3, 由 ， Cells (rownunm, 4)). Select 
' 循环 清除 选中 区 域 中 每 个 单元 格 中 的 宝 格 
For Each one In Selection 
获取 单元 格 内 容 
alm As a 
= one. 
?将 内 容 中 的 室 楼 着 换 为 空 字符 ， mn 
one. Value = Replace(aim, “ 
Next one 
End Sub 


知识 链接 ”使 用 Replace() 函 数 清除 字母 间 的 空格 
要 清除 字母 间 的 空格 ， 可 使 用 Replace0 函 数 将 字符 串 中 的 空格 替换 为 空 〈"") ， 即 零 长 度 字 符 串 。 


步骤 02 输入 内 容 。 返 回 Excel 视 图 ， 在 单元 格 D27 中 输入 “jim smith”， 如 下 图 所 示 。 


二 一 
陈 掏 
弟 昌 
刘 明 手 
郑 王 
鸭 衫 
瑶 琼 
刘 成 


好 于 


步骤 04 ”查看 清除 空格 后 的 效果 。 程 序 执行 完毕 后 ，“ 英 文 名 ” 列 中 的 字符 串 中 的 空格 即 被 清除 了 ， 效 果 如 右 图 所 示 。 


N-01102 
N01234 
N01403 
N01285 
N-01451 
N-01541 
N01254 
N-01248 


_ -01451 


E 
NW-01423 
-01305 
NH-01102 


NM-01234 
JI-01403 


用 -UL <5o 


N—01451 
-01o41 
NN-012o4 
N01 i408 


F 
服务 态度 逮 劣 
动作 懒 毅 ， 耽 : 
对 顾 寄 的 局 上 D 
服务 态度 泪 劣 
对 顾客 的 询问 
服务 访 度 泪 劣 
动作 民航 耽 
服务 态度 极 差 
服务 态度 证 银 
服务 访 度 差 
服务 态度 莽 


NM-01451 


重点 语法 与 代码 剖析 : Replace0 遂 数 的 用 法 


Replace0 函 数 用 于 返回 一 个 字符 串 ， 该 字符 串 中 指定 的 子 字符 串 已 被 替换 成 另 一 个 子 字符 串 ， 并 且 替 换 发 生 的 次 数 也 是 指定 的 。 其 语法 格式 为 : 
Replace (exptession ，find，teplace[，start[，count[，compate 趾 ) 。 其 中 ，expression 是 必需 参数 ， 为 一 个 字符 串 表 达 式 ， 其 中 包含 要 替换 的 子 字符 串 。find 是 必需 参数 ， 代 表 要 搜索 到 的 子 字 符 串 。treplace 是 必 
需 参 数 ， 代 表 用 来 替换 的 子 字 符 串 。statt 是 可 选 参数 ， 用 于 指定 在 exptession 中 搜索 子 字 符 串 的 开始 位 置 。 如 果 忽 略 该 参数 ， 假 定 从 1 开始 。count 是 可 选 参 数 ， 用 于 指定 进行 子 字 符 串 替换 的 次 数 。 其 默认 值 
为 -1， 表 示 进 行 所 有 可 能 的 替换 。compatre 是 可 选 参数 ， 其 数据 类 型 为 数字 值 ， 表 示 判 别 子 字符 串 时 所 用 的 比较 方式 。 


12.2 ”自动 为 投诉 信息 添加 批注 


记录 投诉 信息 是 为 了 统计 员工 被 投诉 次 数 并 给 予 相应 的 处 理 ， 例 如 ， 被 投诉 2 次 及 以 上 者 对 其 进行 提示 ,被 投诉 3 次 及 以 上 者 处 以 停职 检查 。 使 用 Excel 的 分 类 汇总 功能 按 “ 被 投诉 人 ”字段 进行 统计 ， 可 
获取 员工 被 投诉 的 次 数 ， 但 是 这 样 做 比较 费时 。 本 节 将 使 用 VBA 程 序 代码 自动 统计 员工 被 投诉 的 次 数 并 给 出 相应 的 处 理 意见 ， 以 批注 的 形式 添加 到 工作 表 中 。 


要 码 看 视频 


he 


A 上 F: 实例 文件 \ 第 12 章 \ 原 始 文 件 \ 投 诉 信息 管理 .xlsx 


; 实例 文件 \ 第 12 章 \ 最 终 文件 \ 投 诉 信 息 管 理 .xlsm 


本 小 节 将 通过 编写 VBA 程 序 代 码 ， 首 先 统计 员工 被 投诉 的 次 数 ， 然 后 根据 统计 结果 和 公司 规定 分 别 生成 每 位 员工 的 处 理 意见 ， 最 后 将 统计 结果 和 处 理 意见 以 批注 的 形式 添加 到 相应 的 单元 格 中 。 具 体操 
作 如 下 。 


| “打开 工作 簿 。 打 开 原 始 文 件 ， 可 看 到 “一 月 投诉 ”工作 表 中 已 录入 一 月 份 的 投诉 记录 ， 如 下 图 所 示 。 
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罗 衫 


CD 
一 i 
Dd 


一 | 
CD 一] 加 


Ci I 一 
Li 


步骤 02 插入 “模块 1 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (投诉 信息 管理 .xlsx) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “插入 > 模块 ”命令 ， 如 下 图 所 示 。 
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弄 -UJ JUz 
N13 
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其 一口 ] 239 
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天 一 总 二 5 二 | 


查看 代码 ( 口 ) 


投诉 记录 表 


投诉 事由 
服 和 党 恋 度 不 好 
对 顾 寄 的 询问 ， 轩 之 水 理 E-mail 
服务 志 度 恶劣 投诉 湾 
动作 恒 毅 ， 陪 庄 顾 音 时 间 电话 
腿 等 访 度 水 好 控诉 区 
服务 志 度 普 劣 抽 诉 入 
动作 异 前 ， 聪 试 顾 吝 时 间 E-mail 
服 等 恋 度 泛 务 电话 
对 顾 寄 的 询 上 器， 站 之 十 理 | 下 -mail 
动作 风 栈 ， 职 去 顾客 时 间 控诉 溥 
服 等 访 度 泪 务 投诉 漳 
对 隐 宵 的 词 jpl,， 直 之 直 理 申 讲 
服 备 杰 度 趟 好 电话 
服务 闷 度 症 劣 FE—mall 
动作 展 醒 ， 聪 试 磺 吾 时 | 间 投诉 清 
对 顾 阁 用 询问 , 站 之 十 理 控诉 注 
服务 志 度 亚当 电话 
对 顾 寄 有 的 词 上 可， 直 之 趟 理 E-mail 
服务 访 度 泛 务 投诉 漳 
动作 同和 藤 ， 辽 话 顾 客 时 间 投诉 湾 
服 党 忘 度 极 等 投诉 湖 


投诉 信息 未 评 
电话 


损 诉 人 | 
训 交 十 
陈 立 寺 
罗 先 生 
阵 丈 十 
红 先 生 
滞 小 姐 
济 赵 生 
闻 先 生 
何 支 士 
何 小 组 
局 小 组 
字 小 组 
胡 污 生 
程 先生 
声 立 十 
张 小 姐 
江 辫 十 
陆 鞠 生 
成 先生 
到 小 组 


日 -入 Microsoft Excel] 对 
一 圈 ] Sheetl 【一 月 摊 由 = 
号] Thi sWorkbook 


Ss EE ee = 
音 训 对 黎 (B) 


步骤 03 ”编写 “添加 注释 0” 过 程 代码 。 在 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “添加 注释 0” 过 程 的 第 1 部 分 代码 ， 主 要 用 于 定义 数组 ， 保 存 被 投诉 人 的 名 字 及 被 投诉 次 
数 ， 并 获取 当前 工作 表 的 行 数 。 


添加 注释 ~ 


声明 数组 存储 被 投诉 人 的 名 字 及 投诉 次 数 
Dim names (100) As String 


Dim nums (50) As Integer 
Dim EDum as te BT 
Sub 添 史 王 料 

"关闭 Excel 的 自动 屏幕 刷新 


hpplication. ScreenUpndating = False 

Dim sht hs Worksheet 

Set sht = ActiveSheet 

Dim rownum is Inteser 

rownum = sht.Range(t al ) .CurrentRegion.Rows.Count 
Dim al Ls Strine 


步骤 04 ”编写 代码 统计 员工 被 投诉 的 次 数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “添加 注释 ()” 过 程 的 第 2 部 分 代码 ， 主 要 调用 自 定 义 的 Have0 函 数 判 定 是 否 记 录 了 
该 员工 的 名 称 。 如 果 没 有 ， 则 插入 新 记录 ， 并 记录 被 投诉 次 数 。 


(通用 ) v 
: 流 计 只 工 被 投诉 上 交 数 
For 1 = $10 rm 
ain = Cells 3) 
?请 用 自 是 义 证 秩 ve 0 判 岂 员 工 是 否 已 被 记录 
If Have(laim, names, enum) = False Then 
nanmes (enum) = ainm 


nums (enum) = nums (enum) + 1 
En = gnum + 1 
End I 
Next 1 
anum = gnum — 1 


步骤 05 编写 代码 消除 数组 中 的 空白 数据 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “添加 注释 0)” 过 程 的 第 3 部 分 代码 ， 用 于 清除 数组 中 的 空白 数据 。 


Fn=||- 回 -| 属 
| 上 中 


(通用 ) ~ | | 添加 注释 v 
' 消除 数组 中 的 宇 日 数据 | 攻 
ReDim mames (gnum) As String 
ReDim Cnums (enum) hs Integer 
Dim a As Strine 
For 1 = 1 To gnunm 

nnames (i — 1) = nanmes (i) 
Cnuns (i - 1) = nums (i) 
Next 1 


步骤 06 编写 代码 生成 批注 文本 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “添加 注释 ()” 过 程 的 第 4 部 分 代码 ， 用 于 生成 被 投诉 2 次 及 2 次 以 上 员工 的 批注 文本 。 


(通用 ) v 
"判断 是 否 添加 批注 
Dim text Ms vtrine 
For ] = 0 To gnum — 1 
For 1 1 = 3 To rownun 
"判断 单元 格 内 容 是 否 与 员工 名 字数 组 值 相 同 
If Cells(i, 3) = mames (i) Then 
- 基 断 员工 被 投诉 的 次数 
I Cnums('j) = 2 Or Cnums(j) >» 2 Then 
如 果 被 投诉 2 次 及 以 上 ， 二 批注 文本 


text = “员工 ”+ mnames () + “已 被 控诉 “ 
+ CStr (Cnuns (j)) +“ 次” 


步骤 07 编写 代码 生成 被 投诉 3 次 及 3 次 以 上 员工 的 批注 文本 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “添加 注释 0” 过 程 的 第 5 部 分 代码 ， 用 于 生成 被 投诉 3 次 及 3 次 以 
上 员工 的 批注 文本 ， 并 删除 工作 表 中 已 有 的 批注 信息 。 


器 


| 至 有 ) v3 释 ~ 


' 如果 被 投诉 3 次 及 以 上 ， 添 加 停职 检查 提示 1 
If Cnums (2) = 3 Or Cnums (1) > 3 Then : 
a = text +“， 傅 仿 职 检 


潍 加 批注 , 


Tf text <> *” 
” 如 案 该 昌 元 格 Rn 了 批注 
If Not (Cells(i, 3).Comment _ 
Is Nothing) Then 
' 清 批注 
Cells(i, 3).ClearComments 
End I+t 


重点 语法 与 代码 剖析 : Range.ClearComments 方 法 的 用 法 
Range.ClearComments 方 法 用 于 清除 指定 单元 格 区 域 中 的 所 有 单元 格 批注 。 其 语法 格式 为 : 表达 式 .ClearComments。 其 中 ，“ 表 达 式 ”是 一 个 代表 Range 对 象 的 变量 。 


步骤 08 编写 代码 添加 批注 信息 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 是 “添加 注释 ”过程 的 第 6 部 分 代码 ， 主 要 使 用 Range.AddComment 方 法 添加 批注 ， 然 后 将 


names 和 nums 数 组 清 零 。 


Tr 
Cells(i, 3).AddConmnment (text) 
End I 
End I 
End I+t 
Next 1 


Next 

将 数组 值 清 零 

kor 1 =1 1o 
names (1) 
nuns (1) 


Next 1 

" 恢复 Excel 的 自动 屏幕 刷新 功 家 

Application. ScreenUpdatine = True 
End Sub 


重点 语法 与 代码 剖析 : Range.AddComment 方 法 的 用 法 


Range.AddComment 方 法 用 于 为 指定 单元 格 区 域 添加 批注 。 其 语法 格式 为 : 表达 式 .AddComment (stting) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Range 对 象 的 变量 。stting 是 可 选 参 数 ， 用 于 指定 批注 的 文本 内 


从 


合 o 


步骤 09 ” 自 定 义 Have0 肖 数 统计 投诉 次 数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 首先 恢复 了 Excel 的 自动 屏幕 刷新 功能 ， 然 后 声明 了 自 定义 函数 Have() 的 变量 。 


CE | 
| IN| 


ET ~ 
"定义 Haye 昌国 数 判 电 员 工 定 知已 被 记录 并 统计 被 投诉 ;六 数 ”下 
Function Havelaim As Strine, names() _ 

As String, enum hs Integer) AS Boolean 
Have = False 
Dim 1 点 ES _ Integer 


步骤 10 ”编写 代码 统计 员工 被 投诉 的 次 数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 是 否 记 录 过 该 员工 的 姓名 。 如 果 记 录 过 ， 则 投诉 次 数 加 1， 并 且 函 数 返 回 值 为 


True。 


or 1 = 1 To gnun 
-了 男 是 再 | 束 闪 开本 
If names(i) = Then 
' 如 果 有 记录 则 函数 返回 什 为 直 


Have = = True 


' 孙 加 投诉 并 数 
nums (ti) = nums ti) + 1 
Exit Function 
End I 
Next 1 
End Function 


步骤 11 ”选择 按钮 控件 。 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 的 “控件 ”组 中 单 击 “ 揪 入” 按钮， 在 展开 的 列表 中 单 击 “按钮 (用户 窗 体 ) ”图 标 ， 如 下 图 所 示 。 


开 点 | 具 Power Pivot 


ME [ 当 尾 性 后 酌 映 射 尾 性 5 导入 
加 Excel COM hn 本 由 设计 模式 i 二 局 扩展 包 -- 
载 顶 “加载 项 目 ] 执行 对 话 框 | 刷新 数据 
加 载 项 表单 控件 XML 
恩 办 向 国 
“Ag 丘 国 国 究 
D F ActiveX 控件 
4 人 
投诉 国 © A bo 旺 
人 -英文 名 编 万 直率 押 投 泊 全 i 入 来 源 投诉 人 
-01201 ”服务 态度 不 好 浏 妇 十 
和 NM-01234 i 置之不理 co 陈 妇 十 
KN-01236 务 态度 有 带 省 控诉 漠 专 先 生 
NM-01285 人 辽 旋 顾 寄 时 间 电 语 陈 女 士 
M-01302 态度 不 好 斥 演 六 先生 
NM-01305 上 了 投诉 ; 涪 小 姐 


步骤 12 绘制 按钮 控件 并 指定 宏 。 在 工作 表 中 绘制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 添 加 注释 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


2018/1/1 


步骤 13 ”运行 “添加 注释 0)” 过 程 代码 。 返 回 工作 表 ， 将 按钮 控件 重 命 名 为 “添加 注释 ”， 然 后 激活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


Lo  [ | 人 


中 = 


CT 


La [2 


--] 司 Mn 中 


A 


i hi 户 汪 DO DO -| 全 


HH 二 
TD 一 CD Do 一 


局 投诉 人 


如 明光 
陈 掏 
加 好 
对 明王 
陈 拘 
何 子 忻 
种 判 
明 骅 
陈 三 
赤 B 朋 


D 


人 a 
PD 中 品 工 陈 杨 已 被 投诉 3 
隆 招 也 | 过， 请 仿 职 档 查 


l 
1 
| 同 工 朋 字 已 简报 诉 3 上 
玉昌 宇 El 大 ， 语 信 职 柱 查 5 
全 也 工作 于 必 已 尖 按 译 2 上 
四- 让 工 菏 亲 已 被 投诉 2R 


ESRTEETEOTES 此 


| | 
| 
Pal 


C 
I EE 


P| 员工 症 宇 已 祯 反诉 2 光 


12.2.2 ”编写 代码 目 动 显示 特定 批注 


投诉 记 


英文 名 
Cosmo 
Damel 

Ada 

Elhott 
Daniel 
Crystal 
Edward 
Eric 

Janet 


投诉 记录 表 


鬼 于 事由 
服务 术 度 永 好 
对 两 寄 的 询问 ， 置 之 邓 理 E-mail 
服务 赤 度 亚当 投诉 消 
动作 懒 询 ， 聘 凌 顾 窜 时 间 电话 
服务 态度 趟 好 投诉 薄 
服务 志 度 亚当 投诉 洒 
功 作 懒 前 ， 耽 误 顾 富 时 间 E-mail 
服务 志 度 亚当 电话 
对 了 硕 寄 的 询问 ， 下 之 十 理 |E-mail 
动作 帆 秀 ， 辽 旋 古 膏 时 间 投诉 薄 
服务 志 度 是 绍 投诉 洒 
对 顾客 的 询问 ， 置 之 予 理 电话 
腿 务 坊 度 趟 好 电话 
服务 态度 焉 洗 E-mail 
动作 懒 表 ， 辽 误 顾 寡 时 间 投诉 潮 
对 喇 寡 的 克 章 ， 莉 之 不 理 投诉 清 
服务 态度 亚 泌 电话 
对 丫 寄 的 词 问 ， 百 之 下 理 E-mail 
服务 坊 度 亚 洁 投诉 溥 
动作 情夫 ， 耿 误 古 客 时 间 投诉 宪 
有 眼 务 态 度 极 差 投诉 潘 


编号 
-DLL2uUl 
NM—01234 
M0Q1230 
M01285 
M01 3s02 
M01 05 
N01 403 
NM—01423 
必 一 1 和 2 
NM—01508 


返 拆 信息 来 奖 措 诉 入 
电话 浏 弛 十 


陈 妆 士 
软 先 生 
陈 女 土 
眶 涉 生 
滞 小 姐 
六 半生 
郝 法 生 
何 云 士 
何 小 姐 
洁 小 姐 
李 小 担 
胡 先 生 
程 先 生 
茵 女士 
邓 先 生 
张 小 姐 
江 庚 十 
陆 尖 生 
成 先生 
地 小 组 


上 一 小 节 添 加 并 显示 的 是 所 有 需 给 出 处 理 意 见 的 统计 结果 的 批注 ， 本 小 节 将 在 此 基础 上 修改 代码 ， 只 显示 满足 特定 条 件 (如 被 投诉 3 次 及 以 上 ) 的 批注 。 具 体操 作 如 下 。 


步骤 01 编写 “显示 注释 0” 过 程 代 码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 插 入 “模块 2” ， 在 其 代码 窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 与 “添加 注释 (0” 过 程 的 第 1 部 分 代码 相同 。 


区 
"声明 数组 存 悄 初 投诉 人 的 名 字 及 投诉 , 交 数 
Dim names (100) is String 
Dim nums (50) As Integer 
Dim gnum As Integer 
Sub 显示 注释 0 
"天 财 Excel 有 的 自动 屏幕 刷新 
Application. ScreenUpdatine = False 
Dim sht AS Worksheet 
Set sht = ActiveSheet 
Din rownum hs Integer 
rownum = sht.Range( al ) .CurrentRegion.Rows.Count 
Dim al As Strine 
anum = 1 


步骤 02 编写 代码 统计 员工 被 投诉 的 次 数 并 消除 数组 中 的 空白 数据 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 将 员工 姓名 写 入 names 数 组 ， 表 统计 其 被 投诉 的 次 
数 ， 写 入 nums 数 组 ， 然 后 使 用 循环 语句 消除 数组 中 的 空白 数据 。 


(通用 ) ~ 
"统计 只 工 被 投诉 六 数 蕊 
For 1 = 3 全 ov 

aln = Cell 

请 用 四 定 广 强风 2 0 蓝 朵 员工 是 天 已 被 记录 
If Have(ainm, names, gnum) = False Then 

names (enum) = ain 

nums (gnum) = nums (enum) + 1 

enum = gnum + 1 
End I+ 
Next 1 


gnum = gnum — 1 
" 消 队 数组 中 有 的 宇 日 数据 
ReDim mnames (enum) As Strine 
ReDim Cnums (gnum) As Integer 
Dim a As Strine 
For 1 = 1 To enum 
mamnes (i — 1) = names (1) 
Cnums (i - 1) = nunms (i) 
Next 1 


步骤 03 ”编写 代码 生成 批注 文本 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 用 于 生成 被 投诉 2 次 及 2 次 以 上 员工 的 批注 文本 。 


(通用 ) v 
" 世 断 是 天 添加 批注 本 
Din text As Strine | 
Pe 了 0 To se 
= 3 To TO 


字 判 断 单元 格 商 如 四 申 与 员工 名 字数 组 值 相同 
If Cells(i, 3) = nnames (j) Then 
-员工 被 投 折 的 次 煞 
If Cnums(j) = 
攻 果 汝 投诉 2 次 及 以 了 下， 和 村 入 
text = “员工 ”+ mmames (j) 已 被 投诉 ” _ 
+ CStr (Cnums (1)) + 次 


Then 


步骤 04 ”编写 代码 在 单元 格 中 添加 批注 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代码 的 前 半 部 分 用 于 生成 被 投诉 3 次 及 3 次 以 上 员工 的 批注 文本 ， 后 半 部 分 用 于 判断 单元 格 
是 否 已 添加 批注 。 


TS EECES 
If Cnums(j = 3 Or Cnums (1) > 3 Then 

text = text + “， 博 停职 榨 查 
End If 


_ 尘 加 批注 
LL text < 
,其 卫 站 元 格 马 ， 条 加 了 批注 
It Not (Cells Gi 3).Comment _ 
Ts Nothine) Then 


步骤 05 编写 代码 添加 批注 并 判断 是 否 显示 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 的 前 半 部 分 用 于 清除 单元 格 中 已 有 的 批注 ， 添 加 新 的 批注 ， 并 立即 隐藏 批注 。 


并 


' 清除 所 有 批注 入 


a 3).ClearComments 


"史诗 元 格 重新 添加 批注 并 暂时 隐藏 批注 
Cellst\i, 3).AddComment (text) 
Cells(i, 3) .Comment. Visible = False 


步骤 06 ”编写 代码 显示 批注 并 定义 Have() 函 数 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 。 该 段 代 码 的 前 半 部 分 用 于 在 nums 数 组 的 值 大 于 或 等 于 3 时 ， 显 示 对 应 单元 格 的 批注 ， 后 半 
部 分 是 Have() 函 数 的 前 半 部 分 代码 。 


硬 用 ) 
“显示 被 投诉 3 交 及 以 上 员工 的 批注 
For 1 = 1 To enum 
If mms(i) = 3 Or nums(i) > 3 Then 
Cells(i + 2, 3).Select 
ActiveCell. Commnent. Yisible = True 
es 1+ 


* 夭 数 组 值 清 夫 * 


For 1 = 1 To gnum 
names (i) = 
nums (i) = 


Next 1 i 
' 咎 复 Excel 的 目 动 屏 莫 刷新 功能 
Appllicatlion. ScreenUJpadatlng = True 
Sub 
定 区 Haveg 函 娄 天 肠 员 工 是 否 已 久 W1C 录 并 腕 计 培 授 诉 /人 到 
Function Havelaim As Strins, names() _ 
As Strine, enum hs Integer) hs Boolean 
Have = False 
Dim 1 is Integer 


知识 链接 ”使 用 Visible 属 性 显示 或 隐藏 批注 


显示 批注 即将 批注 以 批注 框 形式 显示 在 单元 格 上 ， 可 使 用 Comment 对 象 的 Visible 属 性 来 设置 。 当 其 值 为 True 时 ， 显 示 批 注 框 ; 当 其 值 为 False 时 ， 隐 藏 批注 框 。 


重点 语法 与 代码 剖析 : Comment.Visible 属 性 的 用 法 
Comment.Visible 属 性 用 于 返回 或 设置 一 个 Boolean 值 ， 它 决定 对 象 是 否 可 见 、 可 读 写 。 其 语法 格式 为 : 表达 式 .Visible。 其 中 ，“ 表 达 式 ”是 一 个 代表 Comment 对 象 的 变量 。 如 果 该 属性 的 值 为 True， 表 示 
该 Comment 对 象 可 见 ; 反之 ， 则 隐藏 该 Comment 对 人 象 。 


步骤 07 编写 代码 累计 投诉 次 数 。 在 “模块 2 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 Have() 函 数 的 后 半 部 分 代码 ， 主 要 用 于 判断 是 否 记录 员工 姓名 。 如 果 需 要 记录 ， 则 函数 返回 
值 为 True， 并 且 为 相应 的 nums 数 组 值 加 1。 


放款 0 怠 数 渤 痢 计 为 真 


Have = [rue 
"累加 投诉 次 数 
nums (i) = nums (i) + 1 
Exlit Function 
End I+ 
Next 1 
End Funct] on 


高 手 点 拨 : “添加 注释 0” 与 “显示 注释 0” 过 程 代码 的 区 别 


本 小 节 中 的 “显示 注释 0” 过 程 代 码 与 上 一 小 节 中 的 “添加 注释 0” 过 程 代码 在 主体 上 基本 相同 ， 二 者 的 区 别 在 于 : “添加 注释 0” 过 程 在 统计 完 员工 被 投诉 次 数 并 生成 处 理 意见 后 直接 添加 批注 ; “} 
示 注 释 0” 过 程 也 同样 添加 批注 ， 但 马上 将 批注 隐藏 ， 然 后 通过 判断 被 投诉 次 数 是 否 大 于 或 等 于 3 来 决定 是 否 将 批注 恢复 显示 。 


步骤 08 ”选择 按钮 控件 。 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 下 的 “控件 ”组 中 单 击 “ 插 入 ”按钮 ， 在 展开 的 列表 中 单 击 “按钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


天 点 [有 具 Power Pivot 


"一 |] \ 四 四 映射 屋 性 
Excel COM 加 载 项 设计 模式 : 汤 = / 
载 萝 ”加 袁 项 到 | : 区 | 刷新 下 所 

加 载 萝 站 XML 


] 


品 恒 罗 国 回身 
ET ,去 3 
一 到 吓 事 由 投诉 信息 来 源 投诉 人 
服务 态度 不 好 电话 刘 交 士 
对 顾客 的 询问 ， 置 之 不 理 E-mail 陈 女 士 
服务 态度 慰 劣 投诉 注 长 先生 
动作 怖 艇 ， 辽 旋 顾 寄 时 间 电话 陈 女 士 
服务 态度 不 好 投诉 溥 贸 先 生 
服务 态度 泣 务 z 投诉 浦 洛 小 姐 


步骤 09 ”绘制 按钮 控件 并 指定 宏 。 在 工作 表 中 的 适当 位 置 绘制 按钮 控件 ， 在 弹出 的 “指定 安 ” 对 话 框 中 单 击 “ 显 示 注 释 ” 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “确定 ”按钮 。 


步骤 10 运行 “显示 注释 0” 过 程 代码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “显示 被 投诉 3 次 注释 ”， 激 活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


员工 史明 洁 忆 被 投诉 : 
I 员 开 陈 扬 已 视 投 诉 3 
次 ， 请 停职 检查 


员工 划 明 宇 已 被 投诉 5 
下 次 ,请 停职 检查 


| 员工 何 子 忻 已 被 投诉 2 


上 
中 
4 
5 
6 
Ff 


目 员工 靖 耻 已 袖 投诉 2 次 


ci) CO 


a 


上 
oo 


步骤 11 查看 运行 “显示 注释 ()” 过 程 代 码 后 的 效果 。 过 程 代码 运行 完毕 后 ， 将 重新 为 “被 投诉 人 ”字段 添加 批注 ， 并 显示 被 投诉 3 次 及 3 次 以 上 员工 的 批注 ， 如 下 图 所 示 。 


添加 注 硫 Ll 
序 


1 
2 
3 
4 
司 
了 
吕 
9 
1n 
11 


2 
上 Lo 


PP 
i ~ I 


[CD 
Po 


12.3” 目 动 导 入 /导出 批注 信和 局 


生成 投诉 信息 处 理 意见 的 批注 后 ， 有 时 还 需要 将 批注 单独 生成 一 个 表格 ， 以 便 打 印 出 来 发 放 给 员工 。 如 果 手 工 将 批注 文本 逐个 复制 到 工作 表 中 ， 既 费时 又 费力 。 本 节 将 通 
， 以 及 在 批注 框 中 批量 添加 或 移 除 批注 的 作者 名 称 。 


批量 导出 和 导入 批注 信息 


日 期 六 全 上 碳 世 名 
1x1 “| 守明 ; 
1 7 陈 扬 如， 
1/2 有 零 好 

1 | 昌 宇 
173 | 陈 殷 

1/3 “| 何 子 忻 
1+5 希 敌 

1756 胡 骅 

1x8 阵 兰 

l/s 孝明 

178 贺 建 

1/9 宇明 淆 
1710 “| 齐 明 宇 
170 | 胡 驶 

1711 | 何 子 怕 
1/11 党 于 Austin 
1/12 “| 陈 扬 “Danicl 
1/12 ” 幕 戎 “ Edhward 
1/1# “一齐 明 宇 “ Ellott 

1716 “ 郑 字 “ Anthonv 
1719 Suc 


Jack 
Caspar 
J Cosmo 


Eott 


J 
Crystal 


月 投诉 | 。 命 


及 添加 / 移 除 作者 名 称 


源 号 


RT 
请 恒 职 净 理 


W01425 
W01508 
WM-01450 
时 一 并 
K-01285 
Dl 23 
K-01305 
M01102 
-D1 234 
M01403 
W01285 
M01451 
WM-01541 


人 四 投诉 记 录 表 


投诉 事由 
服务 志摩 趟 邮 
对 顾客 的 询问 ， 昌 之 予 理 |E-mail 
服务 六 度 亚 盎 控诉 湾 
动作 司 此 。 了 上 腕 误 闻 害 时 间 电话 
服务 志摩 趟 邮 控诉 湾 
服务 六 度 亚 洁 授 诉 簿 
动作 懒 藤 ， 驯 误 顾 害 时 间 E-mail 
服务 过度 亚 沾 电话 
对 顾 寄 的 雪上 吕 ， 站 之 赴 理 E-mail 
动作 情 秀 ， 耽 诈 坝 阁 时 间 投诉 簿 
服务 志 度 点 洁 投诉 漳 
对 顾 音 的 询问 置 之 予 理 电话 
服务 志摩 趟 邮 电话 
腿 务 过度 陡 革 E-mail 
动作 情节 ， 加 翅 熙 窗 时 间 摧 诉 湾 
对 顾 音 的 询问 。 置 忆 趟 捏 投诉 溥 
服务 弯 麻 业 另 电 医 
对 折 音 的 记 可 ,站 之 和 不 理 E-mail 
服务 弯 麻 岂 号 投诉 泣 
动作 刁 表 ， 了 软考 顾客 时 间 投诉 溥 
腿 务 志 度 惕 六 摊 诉 注 


过 编写 V 


损 诉 司 旦 来 源 损 诉 入 
电话 刘 交 十 


陈云 十 
罗 先 生 
防雪 十 
避 先 生 
洁 小 想 
刘 先 生 
部 寺 生 
何 女 十 
何 小 扯 
此 小 所 
李 小 扯 
胡 先 生 
程 兴 生 
其 女 十 
邓 寺 生 
张 小 扯 
江 妆 十 
陆 先生 
成 先生 
之 小 得 


BA 程序 代码 实现 自动 


要 码 看 视频 


he 


L 字 ie : 实例 文件 \ 第 12 章 \ 原 始 文 件 \ 投 诉 信息 管理 .xlsm 


实例 文件 \ 第 12 章 \ 最 终 文件 \ 导 入 和 导出 批注 信息 .xlsm 


本 小 节 将 编写 VBA 代 码 将 批注 信息 批量 导出 至 一 个 新 工作 表 ， 其 中 包含 批注 信息 的 文本 内 容 、 批 注 信息 所 在 单元 格 的 行 号 和 列 号 ， 导 出 后 删除 原 工 作 表 中 的 批注 。 具 体操 作 如 下 。 


| 打开 工作 短 。 打 开 原 始 文件 ， 可 看 到 该 工作 筹 中 已 添加 了 被 投诉 员工 的 批注 信息 ， 如 下 图 所 示 。 


序号 


= 


| ji 
0 


= 


何 子 忻 
这 划 
胡 允 
陈 兰 
孝昌 
名 所 
要 明江 
浏 明 许 
胡 了 
何 子 忻 
常 字 
阵 扬 
刘 明 字 
孝王 
Ey 


EE ME Ti 


授 诉 事由 
服务 态度 水 好 
对 顾客 的 询问 ， i 
服务 态度 恶劣 授 诉 薄 
动作 贿 和 能 ， 了 可 专 顾 寄 时 间 电话 
服务 态度 不 好 投诉 注 
服务 态度 芷 名 授 诉 济 
荔 作 懒 前 ， 职 误 顾 宦 时 间 E-mail 
服务 志 度 恶劣 电 请 
对 顾客 的 个 名， 首 之 赴 理 E-mail 
动作 懒散 ， 辽 旋 顾 寄 时 间 投诉 济 
服务 态度 下 名 控诉 济 
对 顾客 的 询问 ， 置 之 涉 理 | 电 话 
服务 态度 让 好 电话 
服务 态度 亚当 E-mail 
动作 同族 ， 耽 旋 顾 客 时 间 投诉 薄 
对 顾客 的 个 句 ， 首 之 也 理 投诉 济 
服务 态度 亚 劣 电话 
对 顾客 的 询问 ， 首 之 不 理 E-mail 
眼 务 态度 装 淄 控诉 湾 
动作 懒散， 耽 旋 顾客 时 间 投诉 薄 
务 仿 度 极 差 控诉 潮 


措 次 人 护 来 源 投放 人 


和 
办 先生 
陈 妇 十 
钻 先 生 
洛 小 姐 
刘 先 生 
郝 先生 
何 妇 十 
何 小 姐 
代 小 姐 
李 小 姐 
骨 先 生 
程 先生 
黄 女 十 
邓 先 生 
张 小 姐 
江 女 十 
陆 先 生 
成 先生 
轩 小 组 


:al | 


下 中 Solver (SOLYEER. YLAN) 
由 - 晤 YEBAProject (FUNCRES_XLAE) 
-| da oJec t EL : 


要 总 模 岂 
“村 岂 1 


步骤 03 ”编写 “导出 批注 0)” 过 程 代码 。 在 “模块 3 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “导出 批注 ”过程 的 第 1 部 分 代码 ， 用 于 声明 变量 ,保存 当前 工作 表 和 新 工作 表 ， 并 创建 新 
工作 表 。 


二 d 雪 法 到 新 工作 表 的 过 程 代码 
Sub 导出 批注 
he 
Un Error Golo er 
关闭 自动 屏幕 刷新 和 提示 
CO dd 
外 lcation screenUpdat Ha 
着 就 工作 表 


明 变 重 存 情 当前 工作 素 可 
Dim sht is Worksheet 
ee 2 hs Worksheet 
ht = ActiveSheet 
新 建 宇 作 考 ， 并 为 其 草 前 名 
Set temp = Worksheets, add 
temp. nane =“ 导 出 批注 


步骤 04 ”编写 代码 将 批注 信息 写 入 新 工作 表 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导出 批注 0)” 过 程 的 第 2 部 分 代码 ， 用 于 将 批注 文本 及 批注 所 在 单元 格 的 行 号 和 


列 号 写 入 


“导出 批注 ”工作 表 。 


声明 循环 变量 ， 并 初始 做 ， 一 | 
ER rr 
t Cl 1 ir 
多 和 
ea As Tnteger 


7 第 环 操作 当 判 工作 表 中 所 有 批注 


For Each one In sht.Comnent 
保荐 批注 铅 容 家 连 所 在 时 是 阁 的 位 置 
tenp.Cellstrow，1).Value = one. text 
temp. Cells (row, 2) .Value = one. Parent. row 
temnp. Cells (row, 3).Value = one.Parent.Column 
one. Delete 
row = row + 1 

Next one 


知识 链接 ”获取 批注 所 在 单元 格 的 行 号 和 列 号 


在 步骤 04 的 代码 中 ， 为 了 获取 批注 所 在 单元 格 的 行 号 和 列 号 ， 利 用 了 父 级 对 象 的 概念 。 在 Excel 中 ， 批 注 是 依附 于 单元 格 区 域 而 存在 的 ， 因 此 ，Comment 对 象 的 父 级 对 象 是 Range 对 象 ， 再 通过 获取 Range 
对 象 的 Row 属性 和 Column 属 性 ， 即 可 达到 目的 。 


重点 语法 与 代码 剖析 : Comment.Parent 属 性 和 Comment.Delete 方 法 的 用 法 


在 步骤 04 的 代码 段 中 通过 Comment.Parent 属 性 获取 Comment 对 象 的 父 级 对 象 的 行 号 和 列 号 。 例 如 ，temp.Cells (tow，1) .Value=one.Patenttow 语 名 用 于 将 Comment 对 象 所 在 单元 格 的 行 号 写 入 temp 工 作 表 
中 指定 的 单元 格 。Comtment.Delete 方 法 用 于 删除 指定 的 Comment 对 象 。 


步骤 05 ”编写 代码 自动 调整 “导出 批注 ”工作 表 的 行 高 和 列 宽 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导出 批注 ”过程 的 第 3 部 分 代码 ， 用 于 根据 单元 格 内 容 自动 
调整 行 高 和 列 宽 ， 并 以 对 话 框 提 示 导 出 批注 成 功 。 


temp. Range (Cells (1, 1), Cells(row - 1, 3)). 
Rows. AutoFit : : 
temp. | 1), Cells(row - 1,， 3)). 

Colunmns. AutoF 
“用 对 千 要 手 示 学 内 批注 王 成 功 
其 epBox “批注 导出 至 4 总 中 批注 ” 工作 表 ! “ 


局 Excel 目 动 屏 和 盟 刷 新 和 提示 
Appllcatlion.DisplayAlerts = True 
hpplication. ScreenUpdatine = True 
Exlt Sub 


步骤 06 编写 代码 设置 导出 批注 错误 的 提示 信息 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导出 批注 ”过 程 的 最 后 一 部 分 代码 ， 用 于 在 导出 批注 不 成 功 时 ， 以 对 话 框 
进行 提示 ， 并 删除 新 建 的 临时 工作 表 。 


能 导出 ”& 
二 马 有 老 为 tt 注 ” 的 工作 表 “ 
,删除 临时 工作 案 
temp. Delete 
“开启 Excel 自 动 屏幕 刷新 和 提示 


Applicat1on.D1sDlaynalerts = True 


hpplication. ScreenUpdatine = True 
End Sub 


步骤 07 ”选择 按钮 控件 。 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 下 的 “控件 ”组 中 单 击 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “按钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


公式 。 数据 ”审阅 ”视图 | 开发 T 具 | Q 告诉 我 您 想 要 做 什么 . 


让 雪 污 osina 国 
加 ”Excel COM 加 载 项 设 1 人 涯 
页 “加载 项 “ 国 执行 对 话 框 
加 载 项 表单 控件 
国 四 向 国 @| 
Ag 国明 |L 
口 国 四 国 图 自 
加 As 
加 3 投诉 信息 来 源 投诉 / 
服务 坟 度 不 好 电话 刘 女 士 
对 顾客 的 词 可 ,站 之 不 理 E-mail 阵 妇 十 
务 态 度 廷 劣 投诉 清 专 先 生 
站 权 旋 顾客 时 间 电话 陈 交 十 
务 访 度 趟 好 控诉 渡 凡 先 生 
民 务 坊 度 证 分 控诉 渡 党 小 姐 


步骤 08 绘制 按钮 控件 并 指定 宏 。 在 工作 表 中 的 适当 位 置 绘 制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 导 出 批注 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “确定 ”按钮 。 


步骤 09 运行 “导出 批注 0 


刘 明 字 
胡 骅 


过 程 代 码 。 


返回 工作 表 ， 将 按钮 控件 重 命名 为 


“导出 批注 ”， 激 活 并 单 击 该 按钮 ， 即 可 运行 “导出 批注 0” 


投诉 事由 
服务 态度 不 好 
对 顾客 的 询问 ， 站 之 不 理 se 
服务 态度 十 劣 投诉 渡 
动作 司 和 能， 耽 翅 顾客 时 间 电话 
服务 态度 不 好 投诉 注 
服务 访 度 亚 淄 投诉 济 
井 散 ， 耽 去 顾 客 时 间 E-nail 
态度 亚当 电话 
-3 ， 置之不理 E-nail 
动作 司 艇 ， 辽 旋 顾 寄 时 间 投诉 济 
服务 态度 延 劣 投诉 注 
对 顾客 的 询问 ， 站 之 不 理 电话 
服务 态度 不 好 电话 
R 务 态度 王 劣 E—mail 
动作 悟 散 ， 耽 旋 顾 客 时 间 投诉 湾 
人 置之不理 上 


押 术 度 亚 尘 


步骤 10 ”弹出 提示 框 。 代 码 执行 完毕 后 ， 弹 出 提示 框 ， 提 示 用 户 批注 导出 成 功 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 右 图 所 示 。 


过 程 代 码 ， 如 下 左 图 所 示 。 


息 来 源 换 诉 人 


济 诡 

际 区 圭 
加 先生 
阵 女 士 
贸 先 生 
洛 小 姐 
刘 先 生 
郝 先生 
何 妇 士 
何 小 姐 
代 小 姐 
李 小 姐 
胡 先 生 
程 先 生 
芮 女士 
江 先 生 


we = 


导出 批注 
投诉 事由 投诉 信息 来 源 换 诉 
服务 态度 不 好 电话 
对 顾客 的 询 加 ， 站 之 不 理 Email 
Microsoft Excel A 于 省 
咕 
: 诉 潭 
批注 叶 出 主 导出 批 竺 * 作 甫 ! "1 帮 潭 
mall 
匡 
‘mall 
EE _ 诉 济 
务 访 度 站 内 投诉 湾 
对 顾客 的 询 回 ， 站 之 不 理 电话 
服务 态度 不 好 电话 
服务 态度 恶 狗 E-mail 
动作 赂 各， 取 才 顾客 时 间 投诉 请 
对 顾客 的 词 问 ， 置之不理 投诉 清 


步骤 11 查看 导出 的 批注 信息 。 系 统 自 动 切 换 至 “导出 批注 ”工作 表 ， 可 以 在 工作 表 中 看 到 批注 信息 的 文本 内 容 及 对 应 单元 格 的 行 号 和 列 号 ， 如 下 图 所 示 。 


| 
6 
5 
2 
5 
四 
3 
5 
6 
1 
5 
2 


Al r 到 || 批注 信息 的 文本 


下 B 

| 批注 情 息 的 立 本 | 批注 导电 所 在 单元 格 行 亏 ”批注 慷 息 所 和 在 单元 格 列 亏 
员工 专 明 少 已 被 投诉 2 赤 3 
局 工 阵 掏 已 被 授 诉 3 过 ， 请 却 职 检 吾 4 
员工 浏 明王 已 被 投诉 3 交 ， 请 停职 格 查 6 
员工 陈 掏 已 赴 控诉 3; 交 ， 傅 司职 检查 
员工 何 子 忻 已 被 授 诉 2; 8 
员工 贰 拷 已 被 控诉 2 9 
包工 胡 骅 已 被 授 诉 2 赤 I 
员工 蕉 明光 已 被 损 诉 27 14 
员工 刘 明 字 已 被 操 诉 3 次 ， 请 停职 检查 15 
员工 胡 骅 已 被 投诉 2; 交 16 
12 | 员工 何 子 忻 已 被 控诉 2 | 
13 周 工 阵 掏 已 被 提 诉 3 吉 ， 请 却 职 检 吾 19 
14 员工 病 捕 已 被 控诉 2 20 
15 员工 浏 明 放 已 被 投诉 3 ， 请 停职 格 伍 21 
15 员工 部 于 已 被 控诉 2; 次 22 
17 | 内 工 部 宇 已 被 控诉 2 2 
1 9 
| 
PD 


|] Suit 广 | 一 有 R 诛 | @ 6 


步骤 12 ”查看 导出 批注 后 原 工 作 表 的 效果 。 切 换 至 “一 月 投诉 ”工作 表 ， 可 以 看 到 原 工 作 表 中 的 批注 都 被 删除 了 ， 如 下 图 所 示 。 


FF 一 和 口中 5 


CO CO CO Co To Do Co Co Co Do Co Co Co Co | Do 


由 


i 


-nn 


E 


添加 注释 | 


序号 


日 期 
1 1 
111 
1 12 
] 1 
1 /3 
] 
1 5 
1 
1 /8 
1 18 
la 
119 
1 1 
1710 
有 吉 且 i 
1711 
1712 
1r12 
17158 
1 1 


i 


瞧 九 尘 
际 摘 
专 好 
划 明 本 
陈 掏 
何 子 是 
市 到 
朗 双 
阵 三 
都 同 
阅 
吉明 洁 
划 明 主 


阵 抛 
贡 刊 
划 明 于 
到 主 


D 


Cosmo 
Dramel 
Ada 
Eiott 
Damel 
Crystal 
Edward 
Erye 
Jatiet 
Jack 
Caspar 
Cosmo 
Etott 
Erie 
Crystal 
点 Disttm 
Danmel 
Edward 
Elhott 
Anilyony 


显示 被 招 诉 3 次 注释 | 投诉 记录 表 
眉 损 诉 人 菇 广 名 


编号 
NR-—dl 2dl 
Lm 2 
开 一 总 add 
NA-01285 
Lm 
Nd1 sn5 
[0140 
N—0l 42s 
Ld 本 2 
Hui on 
N01 4a0 
Rd1l a2nl 
Lm 2 吕 
也 一 民生 2 
入 一 ULSsD5 
Null 
N01 2 和 4 
Hd1 4 
Ndl .285 
了 一 UL 二 1 


守卫 批注 


控诉 事由 
有 眼 务 态度 涉 好 
对 丫 寄 的 己 问 ， 芷 之 赴 理 E-mail 
有 眼 务 恋 度 避 党 挫 诉 湾 
引 作 但 敢 ， 职 翅 硕 客 时 间 电话 
腿 务 访 度 趟 好 投诉 澶 
腿 务 访 度 涉 尖 控诉 湾 
引 作 局 秀 ， 职 款 顾 客 时 间 E-mail 
服务 芒 度 下 党 电话 
对 丫 寄 的 站 问 ， 下 过 不 理 E-mail 
贡 作 局 剖 ， 股 儒 腔 宕 时 间 控诉 漳 
服务 态度 琴 兴 授 诉 泣 
对 了 痪 寄 的 词 品 ， 竺 之 合理 电 语 
服务 态度 水 好 电话 
E-mail 
引 作 请 训 ， 隐 旋 顾 寄 时 间 摊 诉 湾 
对 疝 寄 的 词 避 ， 下 之 十 理 投诉 澶 
服务 访 度 王涛 电话 
对 丫 容 的 询问 ， 百 之 不 理 E-mail 
腿 告 访 度 泪 学 控诉 沽 
引 作 评 散 ， 隐 芭 硕 客 时 间 控诉 济 


损 诉 恒 护 来 源 损 诉 人 
电话 浊 交 士 


陈 女士 
罗 先生 
陈 女士 
识 先 生 
阁 小 扯 
刘 先 生 
邦 先生 
何 妇 十 
问 小 姐 
长 小 查 
李 小 姐 
胡 寺 全 
程 先 生 
曾 女 十 
邓 先 生 
张 小 碍 
江 女 十 
陆 先 生 
成 先生 


二 /和 乌 罗 箭 Sue 
导出 批注 | 一 月 投诉 | [十 ) 


f-015 对 服务 态度 家 反诉 泗 。。。 罗 小 组 


步骤 13 ”错误 提示 信息 。 


如 果 在 工作 短 中 已 存在 “导出 批注 ”工作 表 的 情况 下 ， 再 次 单 击 “ 叶 出 批注 ”按钮 ， 将 弹出 提示 框 ， 提 示 用 户 批注 未 能 导出 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 右 图 所 示 。 


B C D 

添加 注释 | 。”” 显示 被 投诉 3 次 注释 | 投诉 记录 表 
日 期 ” 被 措 诉 人 ”器 义 名 编号 
1 7 专 明 洗 Cosmo NM—01201 
LA Daniel M-01234 
1l/2 1 一 ee "36 
1 /2 Microsoft Exce| 入 a6 
1/3 D2 
1/3 批注 未 能 导出 05 
1/5 请 检查 是 否 已 有 名 为 导出 批注 "的 工作 表 03 
176 23 
178 25 
178 确定 八 | 06 
178 20 
179 -01201 


[D0 -= 


Ci 


1 
2 
3 
加 
5 
0 
f 
8 


12.3.2 ”编写 代码 导入 批注 信息 


本 小 节 将 编写 VBA 代 码 将 一 个 工作 表 中 的 内 容 批量 导入 另 一 个 工作 表 中 作为 批注 ， 要 导入 的 批注 所 在 的 工作 表 由 用 户 通过 对 话 框 指定 。 具 体操 作 如 下 。 


步骤 01 编写 “导入 批注 0” i 
获取 用 户 输入 的 导入 批注 工作 表 的 名 称 ， 并 判断 是 否 输入 了 工作 表 名 称 。 


过 程 代 码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 是 “导入 批注 0) 


sb 


= ActiveSheet 
, 中 4 溃 口 接收 用 户 输入 
Dim name As Strin 
name = InputBox(’ 1 者 袜 八 村 ， 
"如果 用 户 先 择 取消 或 没有 多 
Tt nane Then 
Exit Sub 
End I+t 


步骤 02 编写 代码 获取 批注 工作 表 的 行 数 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代码 是 “导入 批注 ()" 


语句 操作 批注 工作 表 的 每 一 行 。 


“错误 处 理 代码 
es Error Golo er 
获取 用 户 选 择 的 批注 工作 表 
Set temp Worksheets (name) 
锋 职 批注 工作 表 的 行 
Dim rownum As lntegser 
roOWwnum 


Kows. Count 
入 珠 深 作 半 让 工 作 各 | 的 每 一 行 


Dinm row 点 ES Integer 
Dim col hs Inteser 


步骤 03 ”编写 代码 添加 批注 信息 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “导入 批注 0” 
余 代码 用 于 在 当前 工作 表 的 相应 单元 格 中 添加 批注 信息 。 


\ 批 > TR 


' 声明 变量 存储 当前 工作 表 和 保存 批注 的 工作 表 
Dim sht is Worksheet 
ri his Yorksheet 


EF 


J 容 则 


过 程 的 第 2 部 分 代码 ， 用 于 获取 批注 工作 表 的 行 数 ， 然 后 使 用 循环 


teTp.Range(t al ) CurrentRegi on. 


“根据 批注 工作 表 的 内 容 创 建新 的 批注 


过 程 的 最 后 一 部 分 代码 ， 前 两 条 语句 用 于 获取 批注 文本 对 应 的 行 号 和 列 号 ， 其 


过 程 的 第 1 部 分 代码 ， 用 于 


er 


BE 


= CInt (tenmp. Galle 2) .Valuej 了 


So CInt (temp.Cells(i, 3). Value) 


With sht.Cells (row, col). AddConnent 
.Yisible = False 
. text temp.Cells(i, 1).Value 


End With 
Next 1 
i sub 
-和 茶 旋 处 理 
~ NsgBox “不 和 存在 名 为 二 ”+ name + “” 乓 工作 于 
& Chr (10) & “或 工作 表 内 容 的 格式 不 正确 * 
nd sub 


步骤 04 ”绘制 按钮 控件 并 指定 宏 。 选 择 按钮 控件 后 ， 在 工作 表 中 的 适当 位 置 绘制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 导 入 批注 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ” 按 


步骤 05 运行 “导入 批注 ”过程 代码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “导入 批注 ”， 激 活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


E F 
投诉 记录 表 导出 批注 入 批注 “| 
编号 投诉 事由 $9 诉 信 息 来 汶 投诉 人 
MN-01201 ”服务 态度 不 好 1 刘 女 十 
M-01234 ”对 顾 容 的 己 上 加， 站 之 不 理 E-mail 阵 交 十 
N-01236 ”服务 态度 脖 劣 控诉 济 多 先生 


IN-01285 ”动作 懒散 ， 辽 翅 顾 客 时 间 电话 陈 妇 十 
M-01302 ”服务 态度 不 好 控诉 漠 只 先生 
M-01305 ”服务 念 度 十 邹 投诉 清 洛 小 姐 
JI-01403 ”动作 司 表 ， 耽 旋 顾 客 时 间 E-mail 刘 先 生 
M-01423 “服务 态度 脖 劣 电话 郝 先 生 
M-01425 ”对 顾 寡 的 询 | 晤 ,置之不理 E-mail 何 女 士 
1-01506 ”动作 巾 散 ， 辽 疙 顾 客 时 间 投诉 漠 何 小 组 


M-01450 服务 态度 时 省 ii 矿 浦 长 小 姐 


步骤 06 ”输入 导入 批注 工作 表 的 名 称 。 此 时 弹出 输入 对 话 框 ， 提 示 用 户 输入 导入 批注 工作 表 的 名 称 ， 在 文本 框 中 输入 “批注 ”， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 所 示 。 


hb \ | 
受 诉 记录 表 导出 批注 “| ”三 导入 批注 
编号 投诉 事由 投 扩 信息 来 源 投诉 人 


J-01201 ”服务 态度 不 好 


-可 Microsoft Excel 


M-01425 一 1 对 啤 澡 国 体 |9 盏 之 太 提 /FE=Nmail 
H-01506 ”动作 懒 毅 ， 耽 计 顾 窜 时 | 间 投诉 济 


NM-014o0 服务 态度 站 乡 投诉 浇 七 小 姐 


步骤 07 弹出 提示 框 。 此 时 会 弹出 提示 框 ， 提 示 用 户 不 存在 名 为 “批注 ”的 工作 表 或 工作 表 内 容 的 格式 不 正确 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


FE 
诉 记 录 表 导出 批注 
编号 如 诉 事 由 | 自 息 来 源 投诉 人 
MN-—01201 服务 六 Microsoft Excel 浊 女 十 
JI-01234 ”对 顾 究 | 陈 女 十 
-01236 ”服务 臣 | 专 先 生 
-01285 动作 司 bp et ] 陈 女 士 


有 -01302 服务 式 | | 贺 先 生 
J-01305 ”服务 苞 洛 小 姐 
-01403 ”动作 恒 ee 浊 先 生 
-01423 ”服务 访 a ] 郝 先 生 
-01425 ”对 顾 寄 田间 I 吕 站 直 芭 z 埋 1b=narl 何 交 士 
上 -01506 ”动作 懒 前 ， 耽 误 顾 寡 时 间 投诉 济 何 小 姐 
-01450 “服务 态度 慰 劣 投诉 济 代 小 姐 


步骤 08 重新 运行 “导入 批注 0)” 过 程 代码 。 返 回 工 作 表 ， 表 次 单 击 “ 导 入 批注 ”按钮 ， 如 下 图 所 示 。 


E 

用 诉 记 录 表 导出 批注 

编号 投诉 事 
WN-01201 ”服务 态度 不 好 
NM-01234 a 置之不理 E-mail 
-01236 ”服务 访 度 亚 劣 投诉 济 
NM-01285 人 取 芭 顾客 时 间 电话 
-01302 ”服务 态度 不 好 投诉 清 
NM-01305 证 务 态 度 恶 投诉 清 
-01403 ”动作 懒 毅 ， 耽 庄 顾 窜 时 | 卓 E-mail 
NM-01423 服务 态度 恶 作 电话 
N-01425 ”对 顾客 的 词 回 ， 站 之 不 理 E-mail 
N-01506 ”动作 民 通 ， 辽 旋 顾 客 时 间 投诉 清 何 小 姐 
-01450 ”服务 坊 度 亚 几 投诉 清 代 小 姐 


步骤 09 输入 导入 批注 工作 表 的 名 称 。 弹 出 输入 对 话 框 ， 在 文本 框 中 输入 “导出 批注 ”， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


村 出 批注 


| ”导入 批注 
诉 导 投诉 信息 来 源 撤诉 人 
服务 态度 不 好 电话 


Microsoft Excel 


请 输入 导入 批注 工作 表 的 名 称 


-0 

上 -01425 “对 顾客 的 询问 ,置之不理 Email 何 女士 
和 -01506 ”动作 司 散 ， 辽 顾 客 时 间 投诉 济 何 小 姐 
N-01450 ”服务 态度 疏 务 投诉 浦 代 小 组 


步骤 10 ”查看 导入 批注 后 的 效果 。 系 统 继续 执行 “导入 批注 0)” 过 程 代码 ， 执 行 完毕 后 ， 工 作 表 中 就 添加 了 相应 的 批注 文本 信息 ， 将 鼠标 指针 置 于 添加 了 批注 的 单元 格 上 ， 即 可 显示 批注 内 容 ， 如 下 图 
所 示 。 


F 用 H 


a | as 投诉 i 记 录 表 导出 批注 | 导入 批注 


3| 明 字 
阵 摘 
何 子 性 
蔬 项 
骨 骅 
陈 兰 

二 8 用 外 
0 
专 明 洁 
浏 明 于 
骨 骅 
何 子 必 
是 于 
阵 扬 
证 戎 
当月 于 
奸 王 


i i 


| 如 H 吉 入 | 一 月 概 诉 | 


12.3.3 ”编号 代码 添加 作者 名 称 


HN-—u1 su5 
M1 #3 
HO de3 
ms 
-D1506 
NO do 
一 benu 
HN-—ul a85 
Hl 3 
Hl Sun 
MN-O1102 
M1 2 和 
Hl 403 
NO 28 
M1 01 


投诉 
服务 态度 涉 好 
对 所 寄 的 诠 品 ， 下 之 赴 理 Email 
服务 记 度 车 种 控诉 注 
动作 懒 甬 ， 辽 误 顾 窒 时 间 电话 
服务 坊 度 和 巴 好 投诉 消 
RE 务 记 度 相 省 控诉 湾 
动作 司 栈 ， 了 到 旋 里 寄 时 间 Email 
服 备 志 度 汪 淄 电话 
对 而 客 的 这 问 ， 置 之 予 理 Fnmail 
动作 展 般 ， 辽 误 顾 吝 时 间 授 诉 薄 
服务 恋 度 亚 光 控诉 注 
对 辣 寄 的 诠 申 ， 备 之 店 理 电话 
服务 恋 度 予 好 电话 
服务 恋 度 汪 淄 E-mail 
动作 司 藤 ， 辽 误 顾 寄 时 间 授 诉 簿 
对 而 阁 的 这 问 ， 置 之 予 理 授 诉 簿 
服务 志 度 亚当 电话 
对 也 寄 的 让 | 申 ， 符 之 趟 理 Email 
服务 恋 麻 亚当 投诉 湾 
动作 帆 表 ， 取 攻 顾 宕 时 间 投诉 湾 


Am TT Lm Tr Hoe 


事由 投诉 信息 来 源 投诉 
电话 浏 友 士 


际 交 十 
和 
际 如 十 
雪 寺 生 
洁 小 姐 
浏 先 生 
都 先生 
何如 十 
何 小 组 
代 小 组 
李 小 姐 
胡 先 生 
二 
真 艾 十 
对 元 生 
张 小 昌 
江 艾 士 
陆 鞠 生 
成 先生 


PTL im 


是 夺 


本 小 节 将 编写 VBA 代 码 获 取 本 机 当前 用 户 的 名 称 ， 并 添加 到 工作 表 中 已 有 的 批注 内 容 前 作为 批注 作者 名 称 。 具 体操 作 如 下 。 


步骤 01 编写 “添加 作者 名 称 ()” 过 程 代码 。 继 续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 主要 用 于 获取 本 机 上 当前 用 户 的 名 称 并 赋 


值 给 变量 authorname。 


(前 用 ) WU 
' 为 每 个 批注 添加 作者 名 的 过 程 代 码 
sub 添加 作者 名 称 0 

' 获取 当前 用 户 名 


Dim authorname As Strinege 


authormname = Application. UserNane 
Dim sht ss Worksheet z 
Set sht = Worksheets(” 一 月 投诉”) 
从 扣 从 着 名 后 时 批注 妆 本 
Dim a As Strin 
循环 访问 当前 工作 表 中 的 所 有 批注 
For Each one In sht.Comnents 
With one 


步骤 02 编写 代码 添加 作者 名 称 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 用 于 将 用 户 名 称 连接 在 批注 文本 前 面 ， 然 后 添加 到 工作 表 中 。 


ES 
站 一 


me + “: ”+chrelly _ 
,重新 为 慈 注 汪 加 克 重 a 中 存 情 的 批注 文本 


.text text:= 
End With 
Next one 
End Sub 


知识 链接 ”批注 信息 内 容 
批注 信息 内 容 包括 作者 名 称 和 批注 文本 ， 作 者 名 称 又 称 为 当前 用 户 名 称 ， 可 以 使 用 Application 对 象 的 UsetName 属 性 来 设置 。 
重点 语法 与 代码 剖析 : Application.UserName 属 性 的 用 法 


Application.UsetName 属 性 用 于 返回 或 设置 当前 用 户 的 名 称 ， 其 数据 类 型 为 Stting 类 型 。 其 语法 格式 为 : 表达 式 .UsetName。 其 中 ，“ 表 达 式 ”是 一 个 代表 Application 对 象 的 变量 。 该 属性 一 般 用 于 返回 当前 
用 户 的 名 称 。 


步骤 03 ”绘制 按钮 控件 并 指定 宏 。 返 回 Exce| 视 图 ， 选 择 按钮 控件 后 ， 在 工作 表 中 绘制 按钮 控件 ， 在 弹出 的 “指定 安 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 添 加 作者 名 称 ”选项 ， 如 下 图 所 示 ， 然 后 单 
击 “确定 ”按钮 。 


步骤 04 运行 “添加 作者 名 称 ()” 


步骤 05 ”查看 运行 “添加 作者 名 称 ()” 


入 委 RE | 


和 
服务 态度 惕 务 控诉 济 
动作 居 艇 ， 辽 弃 顾 客 时 间 电话 

服务 态度 不 好 控诉 济 
R 秒 坊 度 还 劣 控诉 济 
动作 刁 艇 ， 辽 旋 顾 寄 时 间 E-mail 
服务 态度 涉 劣 电话 

对 顾客 的 询 可 ， 置 之 不 理 E-mail 
动作 懒散 ， 辽 弃 顾 客 时 间 投诉 济 
服务 态度 恶 乡 投诉 济 
对 顾客 的 询 可 ， 站 之 不 理 电话 

服务 态度 不 好 电话 

服务 态度 疏 劣 E—mall 
动作 司 藤 ， 耽 弃 顾 客 时 间 投诉 清 


导入 批注 
换 诉 全 息 来 源 投诉 人 


刘 女 士 
陈 女士 
罗 先生 
陈 女士 
贸 先 生 
洛 小 姐 
刘 先 生 
郝 先生 
何 女 十 
何 小 姐 
代 小 姐 
李 小 姐 
胡 先 生 
程 先 生 
黄 女士 


过 程 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “添加 批注 作者 名 称 ”， 激 活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


; 东 


过 程 代 码 后 的 效果 。 程 序 运行 完毕 后 ， 将 鼠标 指针 置 于 带 批注 文本 的 单元 格 上 ， 此 时 显示 出 的 批注 文本 即 添加 了 当前 用 户 的 名 称 ， 如 右 图 所 示 。 


日 期 
171 
1:1 
1:2 
1 2 
173 
173 
由 
1 
1728 
178 
178 
i129 
Le 
L710 
1711 
1 ld 
1 /12 
和 
1718 
1718 
1719 
1 71193 


i DN 


PP 
-中 


Do 
[P| 


添加 注释 | 


人 英文 名 


了 所 
风 好 
阐明 于 
陆 萄 
何 闻 沂 
肃 再 
胡 刘 
陈 三 
站 用 


刘 明 于 
邢 于 
村 和 
扬 琉 


12.3.4 ”编写 代码 移 除 作者 名 称 


Cosmo 


若 不 想 在 批注 信息 中 显示 作者 名 称 ， 可 编写 VBA 代 码 来 移 除 作者 名 称 。 具 体操 作 如 下 。 


步骤 01 编写 “ 移 除 批注 中 的 作者 名 称 0” 过 程 代码 。 
0” 过 程 的 前 半 部 分 代码 ， 用 于 声明 保存 作者 名 称 长 度 、 批 注 文本 的 长 度 和 删除 作者 名 称 后 的 长 度 的 变量 


继续 上 一 小 节 的 操作 ， 进 入 VBE 编 程 环境 ， 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “ 移 除 批注 中 的 作者 名 称 


显示 被 投诉 3 次 注释 投诉 记录 表 
编号 


Nw1 wbl 
一 Dl 志和 


NH-0l #25 
NH-01506 
NH- nl oD 
有 -Len 
JuLebo 
NH-—01 2d 
HN-—01 305 
Hollbe 
及 一 Led 
攻 一 DLLdLDas 
JuLebob 
NH—01 4451 
[01541 
J V1 ou 


寺 出 批注 


导入 批注 | 


损 诉 事 王 吕 诉 信息 来 源 损 诉 六 
电话 i 十 


服务 访 度 涉 好 
于 厨 吝 四 询 上 问 ， 在 之 不 理 Email 
腿 务 志 度 浊 华 投诉 潭 
动作 朵 藤 ， 辽 旋 顾 客 时 间 电话 
备 访 度 : 涉 好 控诉 酒 
服务 访 度 逮 劣 投诉 渣 
动作 同和 贡 ， 取 弃 顾 客 时 间 /E-mail 
腿 务 专 度 亚当 电话 
对 顾 寄 的 间 品 ， 站 之 十 理 E-mail 
动作 帆 各 ， 取 证 顾 音 时 间 摊 诉 清 
腿 务 专 度 亚 党 摧 诉 济 
对 顾 寄 的 词 问 ， 置 之 趟 理 | 电话 
肿 务 志 度 不 好 电话 
服 和 芳 恋 度 普 迪 E-mail 
动作 虱 前 ， 陪 主 顾 诗 时 | 间 摊 诉 清 
对 顾 窒 的 订 | 申 ， 窒 之 小 理 控诉 渣 
服 和 芳 恋 度 普 入 电 语 
对 顾 寄 的 询问 . 站 之 趟 理 E-mail 
服务 索 度 站 沼 投诉 洱 
动作 贿 豆 ， 辽 旋 顾 客 时 间 操 诉 清 
等 志 度 松 莽 控诉 潭 
服务 访 度 泪 省 投诉 漂 


I 


阵 下 十 
多 先生 
阵 交 工 
加 先生 
党 小 姐 
洲 先 生 
那 先 守 
倍 友 士 
何 小 组 
人 小 组 
到 小明 
明 移 生 
三 元 主 
真 区 十 
邢 先 生 
呆 小 弓 
江 女 士 
陆 先 生 
成 先生 
专 小 组 
下 


移 除 批注 中 作者 名 的 过 Et 


Sub 移 除 批注 中 的 作者 名 称 癌 
' 箱 环 访 占 当前 工作 表 中 的 所 有 批 注 
Dim sht hs Worksheet 


Set 
For Each one In sht.Comments 
With one 
获取 作者 名 的 长 度 
Dinm Lauthor hs Imnteger 
Dim Ltext As Integer 
Dim Result hs Integer 


步骤 02 ”重新 添加 批注 文本 。 在 “模块 3 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “ 移 除 批注 中 的 作者 名 称 ()” 过 程 的 后 半 部 分 代码 ， 该 段 代 码 主要 使 用 Len() 函 数 获取 批注 文本 的 长 


sht 


度 和 作者 名 称 的 长 度 ， 然 后 使 用 Right() 函 数 获取 批注 文本 信息 。 


= Worksheets ("一 月 投诉 ”) 


Lauthor = Len(,AuthoT) 

Ltext = Len(. text) 

' 计算 删除 作者 名 后 的 长 度 
Result = Ltext - Lauthor - 1 


' 修改 批注 内 容 
.text Rigeht'(. text, Result) 
End With 
Next one 
End Sub 


步骤 03 ”绘制 按钮 控件 并 指定 宕 。 返 回 Excel 视 图 ， 选 择 按钮 控件 后 ， 在 工作 表 中 绘制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 移 除 批注 中 的 作者 名 称 ” 选 项 ， 如 下 图 所 示 ， 然 
后 单 击 “ 确 定 ”按钮 。 


步骤 04 运行 “ 移 除 批注 中 的 作者 名 称 0” 过 程 代码 。 返 回 工 作 表 ， 将 按钮 控件 重 命名 为 “ 移 除 批注 作者 名 称 ”， 激 活 并 单 击 该 按钮 ， 如 下 图 所 示 。 


上 
诉 记 录 表 


编号 
MN-01201 
MN-01234 
NM-01236 
NM-01285 
| ml le 
N=-01309 
M01403 
NM-01423 
MNM=01425 
NM-01o08 
N01400 
M01201 
NM-01289 
N=-01423 
NM-01309 
NM-011v2 


导出 批注 
投诉 事由 
服务 态度 趟 好 
二 二 同和 回 ， 半 之 不 理 ee 
务 恋 度 总 邹 投诉 溥 
未 作 坟 有 耽误 顾客 时 间 电话 
服务 态度 个 好 投诉 济 
服务 态度 导 省 控诉 潮 
动作 懒 肯 ， 耽 计 顾 许 时 间 E-mail 
对 顾客 的 询问 ， 置 之 不 理 E-mail 
动作 司 表 ， 耽 旋 顾 客 时 间 投诉 溥 
务 恋 度 站 邹 控诉 湾 
对 顾客 的 词 问 ， 置之不理 电话 
务 访 度 涉 好 电话 
服务 态度 导 省 E—mail 
动作 懒 前 ， 耽 误 顾 寡 时 间 投诉 注 
对 顾 罕 的 寺 问 ， 直 之 不 理 授 诉 溥 


导入 批注 


换 钙 全 局 生来 源 人 


NM-01z34 


RB | C 
| 添加 证 释 | 
二 | 序号 | 日 其 
忆 1 站 
1:1 
1 
1 
1 7 
17S 
175 
1 
178 
1 
lB 
la 
1110 
1/10 
71] 
1/11 
1/12 
1/12 
1/16 
1716 
1/19 
1/19 


专用 污 
阵 换 
专 好 
浊 昌 于 


| [Co 
= | | [mm | [mn - 


在 分 析 数 据 时 ， 通 常会 使 用 Excel 完 成 报表 和 图 表 的 制作 ， 而 在 需要 汇报 和 展示 分 析 成 果 时 ， 又 要 用 到 Word 和 PowerPoint。 本 章 将 介绍 如 何 使 用 Excel VBA 程 序 代码 实现 三 个 组 件 之 间 的 协作 ， 包 括 : 


服务 态度 好 沧 


步骤 05 ”查看 移 除 批注 作者 名 称 后 的 效果 。 程 序 执行 完毕 


电话 


Li 


| | FR | . 
显示 被 投诉 ;注释 | 投诉 记录 表 
居 授 证 人 器 交 书 


编号 
一 LDL 
和 一 Le 
于 一 中 1 a35 


“Cosmo 
Danicl 
i 


an D I 


-D1 .3 
| 
N01 450 
了 一 DT 20l1 
-01 239 
K-01 42 
机 一 UL SU 
-Dll 
NR-—D1 a4 
N01 ds 
-01 a85 
N01451 
-bi od41 
N01 254 


第 13 草 ” 目 动 生成 产品 分 


添加 批注 作者 名 种 


对 去 二 
如 计生 
陈 女 士 
党 小 姐 
刘 先 生 
郝 先生 
何 女 士 
何 小 组 


称 除 批注 作者 名 和 


后 ,将 鼠标 指针 置 于 带 有 批注 文本 的 单元 格 上 ， 显 示 出 的 批注 文本 中 已 没有 作者 名 称 ， 效 果 如 右 图 所 示 。 


il 


了 寻 六 批注 


洛 诉 售 电 来 源 投诉 只 


电话 
办 站 之 再 理 | 广 iiail 
服务 坊 度 亚 艺 控诉 湾 
动作 懒散 ， 了 长 顾 寄 时 间 电 证 
服务 恋 度 趟 好 皖 诉 湾 
服务 弯 度 亚 艺 控诉 漳 
动作 属 散 ， 取 话 顾 寄 时 司 E-nail 
服务 志 上 度 亚当 电话 
对 顾客 的 间 I 可 ， 直 之 十 理 E-nail 
动作 司 散 ， 了 误 兢 寄 时 间 投诉 注 
服务 志 度 亚 芝 摧 诉 潭 
对 顾客 的 词 品 ， 置 之 趟 理 电话 
服务 志 度 水 好 电话 
服务 志 度 恶劣 FE-—nail 
动作 情 肯 ， 了 误 顾 吝 时 | 间 换 诉 薄 
对 顾客 的 词 i 可 j， 兰 之 十 理 投诉 薄 
服务 志 度 亚 党 电话 
对 顾 寄 的 询问 ， 胃 之 十 理 FE-nail 
服务 志 度 恶劣 投诉 站 
动作 申 秀 ， 取 误 顾 客 时 间 摧 诉 薄 
服务 弯 度 根 蔗 设 诉 竹 
服务 志 度 亚 党 投诉 薄 


析 报 告 


浏 妇 十 
陵 去 士 
专 先 生 
味 妆 士 
器 元 十 
深 小 丰 
| 
冲抵 生 
何 交 士 
何 小 外 
尺 小 丰 
ls 
胡 先 生 
三 元 生 
黄 芭 十 
部 先生 
张 小 钼 
江 训 十 
陆 寺 生 
成 元 生 
故 小 组 
华 先 生 


在 Excel 工 作 表 中 插入 Word 文 档 的 内 容 ， 自 动 生成 产品 报价 单 ; 将 Excel 工 作 表 中 的 数据 自动 制作 成 图 表 ， 并 生成 销售 分 析 报 告 Word 文 档 和 PowerPoint 演 示 文 稿 。 


假设 已 有 一 些 产 品 报价 资料 ， 包 括 一 张 存 放 于 Excel 工 作 表 中 的 “产品 报价 单 ”， 其 中 有 若干 产品 的 品牌 、 名 称 、 型 号 规格 、 报 价 等 信息 ， 以 及 各 自 存 放 在 不 同 Word 文 档 中 的 产品 品牌 简介 。 现 在 希望 
对 这 些 资料 进行 梳理 与 整合 ， 制 作出 新 的 产品 报价 单 。 要 求 新 报价 单 按照 品牌 归 类 存放 在 不 同 的 工作 表 中 ， 每 个 工作 表 都 包含 该 品牌 的 简介 和 各 产品 的 信息 。 本 节 将 使 用 VBA 程 序 代码 自动 完成 新 的 产品 报 
价 单 的 制作 。 


扫 码 看 视频 
如， G 上: 实例 文件 \ 第 13 章 \ 原 始 文件 \ 产 品 汇 总 表 .xlsx、 诺 基 亚 手机 简介 .docx、 索 尼 爱 立信 手机 的 简介 .docx 


;实例 文件 \ 第 13 章 \ 最 终 文 件 \ 制 作 产 品 报价 单 .xlsm 


各 个 品牌 的 简介 存放 在 不 同 的 Word 文 档 中 ， 要 将 这 些 文档 的 内 容 分 别 插入 不 同 的 工作 表 ， 首 先 必须 获取 文档 的 保存 位 置 。 本 小 节 就 来 编写 达到 上 述 目的 的 VBA 代 码 。 


打开 原始 文件 。 打 开 原 始 文 件 “ 产 品 汇 总 表 .xlsx”， 可 看 到 在 “产品 报价 单 ” 工 作 表 中 已 录入 各 种 品牌 手机 的 型 号 及 报价 数据 ， 如 下 图 所 示 。 


E CG 


一 I 四 | 
各 种 手机 品牌 的 报价 
本 型 二 规格 
同 洁 制式 :05N 85090071800719ou EDTE 7 于 机 
a | pa 160D0 万 色 ， 
320 异 素 , 0 贡 可 1/ 予 坊 :3sries 加 革 三 岳 / 
N89000 [Luna 丙 ,gq 和 野 , 支持 MP3 堆 下 ,支持 
户 训 局 丰 站 CC 十 ， ECD+, H,，263, 有 H. 254, WW 格式/ 操 保 
头 :内 置 摄像 忒 
贺 绍 制式 :WeCTILL TL30Y CS 
5079001LEBoo1Soo0 TQE/ 手 机 外形 : 折 莫 /主屏 
其 独 : 采 屏 , TTT, 240X320 你 过 ,2, 4 英寸 , 1670 中 
色 / 系统 :Synbian 9. 2, Series 60 党 3 所 / 棕 
声 ;64 和 0 弹 , 支持 NP3 管 声 / 操 信 涉 :内 导报 像 基 
同 络 制式 :WOTJA TS BEST S00r1300/132007 手 机 
外 形 : 折 驼 ,/ 主屏 共犯 : 科 屏 ， 26 门 色 ,TFT, 240 
320 履 素 , 2. 4 英寸 / 予 坊 :Symbian 9.1 Series 
的 革 3hR7 税 育 :计生 , 天 持 虹 3 裤 户 / 皂 展 兴 ; 自 
计 探 像 共 , 落 司 计 证 税法 , 有 入 男 保护 项 
了 问 络 天 也 :6S8 900d1900/ 玫 机 杀 形 ; 直 收 /主屏 准 
未 尼 爱 立信 K200c 由 ,彩屏 ,65536 色 , STH, 129 闪 129 必 素 /办 声 ;32 
9 和 弹 : 报 慷 沁 :内置 氛 入 站 
周 络 制式 :5 350/900/1800/1900, ED 手机 
专 尼 王立 巷 路 形 : 直 板 ,/ 主屏 委 掀 :入 屏 ，26 门 色 , JED, 17 
和 220 恬 素 , 1. 9 英寸 /尾声 :40 和 弦 志 持 WF3 转 声 / 摄 
俐 具 : 和 内置 摄 虱 藉 
同 蜡 制式 :05 9600016001So0 手机 外 形 : 直 板 ， 
oy 主屏 参数: 和 蒜 屏 , 38 万 色 , TFT,3d0x320 你 各 ,3 
系 下 天 立信 k8l8c。 。 英寸, 蕉 声 ;72 和 起 , 吉 持 1P3 交 声 , 支持 自 编 想 声 / 
摄 惨 头 :内置 摄 僚 头 
产品 招 价 单 产品 销 告 去 。 Sheet3 


名 


步骤 02 打开 诺基亚 手机 简介 文档 。 打 开 “ 诺 基 亚 手机 简介 .docx” 文 档 ， 可 看 到 该 文档 简单 介绍 了 诺基亚 手机 的 特点 ， 如 下 图 所 示 。 


=: 
.和 藻 强 
17| 上 丘 进 择 - 
李 巷 : 瑞 G 洋基 5 ”上访 法 


型 
1 


| ABbCem MaBbCeD AAAB| AaBb( - 
U-aex wm -让 - 国 沿 -| 二 -再 - .正文 | :去 标量 1 标 是 2 


诺基亚 手机 简介 . 

册 基 亚 公 司 专 注 填 移动 通信 相 甘 产后 的 研发 与 制造 ,包括 称 动 电话 产 中 并 名 媒体 、 媒 乐 、 
通信 网络 和 企业 级 的 解决 方案 , 诺基亚 是 移动 通信 的 全 球 领 先 者 , 致力 于 提供 易 用 和 安全 的 
产品 ， 包 括 移 动 电话 、 图 像 、 游 戏 、 柑 体 以 及 面向 移动 网 络 运 营 珊 和 企业 用 户 的 解决 方案 ， 
从 而 丰富 大 们 的 生活 , 提升 其 工作 效率 , 诺基亚 股票 在 全 球 五 个 主要 证 券 市 声 上 市 ， 虑 东 遍 
布 忆 界 音 地 。-。 

1 而 摔 ， 这 是 第 一 大 优 反 : 

2 质量 好 ， 

3 手机 的 上 谷 后 服务 网 点 比较 名 ,而 且 服 务 还 不 错 。 
4、 鹿 控 比 较 合宜 。 

3， 电 池 竺 机 时 间 上 长 : 


步骤 03 ”打开 索尼 爱立信 手机 简介 文档 。 打 开 “ 索 尼 爱 立信 手机 的 简介 .docx” 文 档 ， 可 看 到 该 文档 简单 介绍 了 索尼 爱立信 手机 的 情况 ， 如 下 图 所 示 。 


本 后 营 袜 六 于 机 的 简 牛 ae - War 本 
总 肯 衣 莹 下 旦 天 二 什 


索尼 爱立信 于 机 的 简介 . 


壳 尼 爱立信 ， 曾 称 索 呈 ,是 2001 年 由 壳 立 情 与 索 后 公司 北 同 训 立 的 ， 有 从 请 着 青 的 


人 角度， 沪 简 单 作 一 下 索爱 手机 间 绍 ， 客 受 手机 前 喘 是 爱 宫 六 汉 司 准 出 的 手机 ， 术 .2001 
年 来 ,索尼 与 项 立信 联手 后 ， 其 手机 以 独特 的 车 型 ， 强 六 的 絮 乐 功能 迅速 占有 市 场 ， 索 
尼 笃 司 对 于 外 现 的 请 计 可 谓 是 独 贞 苛 心 ， 许 区 年 青 类 是 看 中 了 素 受 的 精 圭 的 包 汪 , 以 而 
进 择 素 爱 。 同 时 其 丰 埋 的 迷 科 功能 也 是 消 器 者 选择 的 另 一 理由 , 例如 索 坟 的 walkman 手 
机 系列 ， 很 误 现 优 的 讲 访 者 的 追随 ，walloman 手机 以 其 功能， 出 色 的 措 旅 演 果 ， 上 成 为 时 
代 汕 上 国 索 员 ，» 

壳 喜 于 机 新 载 的 排出 ,都 有 其 共同 的 桂 氮 ， 下 是 育 正 市 贡 兰 的 草 项 特 列 再 求 ， 二 加 
walkman 于 机 未 列 以 音乐 为 主打 。 而 担 耻 手机 则 福生 操 你 的 功能 ， 索 客 条 列 揪 像 于 
机 , 采 司 了 索尼 cybershot 的 掩 像 尖 ， 靖 下 了 担 国 过 济 训 的 昌 求 ， 索 过 革新 于 机 k818e 上 
是 将 用 7 了 kk8300c 与 E81l0e 的 这 计 ,， 为 可 在 的 你 瓯 此 上 梢 十 束 精 。 由 于 索 吉 的 于 机 着 重 于 
其 项 功能 ， 因 此 索爱 手机 玉 攻 下 调 训 度 也 比较 央 , 也 哇 诺 足 币 场 妃 过 涤 济 的 心志 坚 乐 
功能 晶 六 的 索爱 甸 球 是 必 生 可 省 的 ， 索 过 手机 话 丈 菲 罕 java 在 庶 戏 选择 上 用 比 
轩 术 的 空间 ， 玩 家 可 以 一 边 听 音乐 一 边 玩 洪 戏 ， 可 谓 一 级 训 受 。 


步骤 04 ”插入 模块 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (产品 汇总 表 .xlsx) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “插入 > 模块 ”命令 ， 如 下 图 所 示 。 


jE] 


由 - ‘Solver (SOLYVER. ILAN) 

由 - 5 是 VBAProject (FUNCEES- TLAE) 
EVBAProject 【Pr 十 时 上 1 
自 - 人 Mi crosoft Excal SEE - 
一 畴 ] Sheatl 【产品 报价 单 ) 

-用 Sheet2 晤 衫 售 表 ) 
… 转 ] Sheet3 【分 析 报 告 ) 


… 围 | Sheet4 (Sheet3) 
|] Thi sWorkbook 


导出 文件 (E)... 


称 降 (RR) 


步骤 05 ”编写 “报价 单 0” 过 程 代码 。 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “报价 单 0” 过 程 的 第 1 部 分 代码 ， 主 要 用 于 定义 保存 品牌 名 的 数组 ， 然 后 获取 “产品 报 
价 ”工作 表 的 行 数 。 


ource As Worksheet 
t Source = Worksheets ("产品 报价 单 ”) 
襄 明 数组 存储 品 胞 


Din PinPai(10) as String 
获取 “产品 报价 ”工作 表 的 行 数 
Dim rownum As Integer 
rownum = Ee Rangel’ 4A2”).CurrentRegion. 
Rows. 
世 取 鱼 诈 号 中 点 牌 的 种 类 并 将 其 赋值 给 侣 数组 
Dim al 点 3S Strine 
Dim enums As Integer 
gnums 


步骤 06 编写 代码 获取 品牌 的 唯一 值 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “报价 单 0” 过 程 的 第 2 部 分 代码 ， 主 要 用 于 获取 品牌 的 唯一 值 ， 并 将 其 赋值 给 数组 变量 
PinPali()。 


医 取 品 牌 的 唯一 人 


For 1=3To pe 
aim = Cells i 


? 关 折 其 量 才 党 终 被 记录 加 
If Not Havetktaimn，PinPai，gnunms) Then 
PinPai (enums’ = ainm 


anums = gnums + 1 
End If 
Next 1 
enums = snums 一 1 


步骤 07 编写 代码 创建 产品 报价 单 工作 表 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “报价 单 () ”过程 的 第 3 部 分 代码 ， 主 要 调用 自 定义 浮 数 GetPath0 获 取 品 牌 描述 信息 
文档 的 路 径 ， 然 后 调用 自 定 义 函 数 CreateSheet() 创 建 产 品 报价 单 。 


Cl 
| 1 | 


x 
[TD 
获取 品牌 拉 述 文档 的 跨 径 区 
Din Pathy¥ (5) As String 
For 1 = 1 To gnums 
Pathy (i) 二 EetPath(* 请 选择 。 + PinPai(i) 
十 让 的 天生 天 过 ) 
If Pathy (i) = T 
MsgBox 人 没有 选择 贿 品 品牌 相应 的 描述 倩 息 


1 Sub 


”对 用 过 程 代码 为 相应 产品 创建 报价 单 
Application. ScreenUpdating = False 
Createsheet Source, PinFai(i), Pathy (i) 
Application. ScreenUpdating = True 

Next 1 
End Sub 


步骤 08 自 定 义 Have0 遂 数 检测 数组 值 是 否 存 在 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 定 义 了 一 个 Have0 浮 数 ， 用 于 判断 工作 表 第 1 列 中 的 品牌 名 是 否 已 写 入 数组 变量 
PinPai0 中 。 如 果 已 写 入 ，Have() 国 数 返回 值 为 真 ; 反之 ， 则 为 假 。 


DN ES 下 
Function Have(ainm As String，PinPai 
hs Strine, enums As Integer) As Boolean 
Have = False 
For 1 = 1 To gnums 
If PinPaiki) = aim Then 
Have = lrue 
Exit Function 
End I+ 
Next 1 
End Function 


步骤 09 自 定 义 函数 GetPath() 获 取 文 档 路 径 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 GetPath() 函 数 的 前 半 部 分 代码 ， 主 要 使 用 Application.FileDialog 属 性 设置 文件 
对 话 框 的 标题 、 选 择 文件 类 型 、 选 取 文 件 的 个 数 等 属性 。 


ET v 
询问 用 户 品 牌 拉 述 文档 的 路 生 
Function CetPathttitle As Strine) AS Stringe 
Dim dialog As FileDialog 
Set dialog = Application.FileDialog _ 
(nsoFileDialogFilePicker) 


' 设置 对 话 框 的 标题 
dialog. title = title 
dialog, Filters.Clear 
" 设 首 对 话 框 中 选择 文件 的 类 型 
dialog.Filters. Add _Word 广 各 ， “本 。QocX” 
dialog.FilterIndex = | 
"设置 用 户 在 对 话 框 中 只 月 选取 单个 文件 
QdLalog, 上 LowluLtlSelect = False 


步骤 10 ”编写 代码 获取 对 话 框 中 所 选 文件 的 路 径 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 GetPath() 函 数 的 后 半 部 分 代码 ， 判 断 是 否 显示 内 置 对 话 框 。 如 果 显 示 ， 则 返 
回 所 选 文件 的 路 径 。 


' 忒 朵 是 天 显示 3 站 对 话 答 
It dialog. Show = -1 
甘 取 示 革 补 划 所 选 文件 别 中 和 
人 = dialog. SelectedItens (1) 
Rlse 


GetPath = “” 
End I+ 
Set dialog = Nothine 
End Function 


重点 语法 与 代码 剖析 : Application.FileDialog 属 性 的 用 法 


Application.FileDialog 属 性 用 于 返回 一 个 FileDialog 对 象 ， 该 对 象 表示 文件 对 话 框 的 实例 。 其 语法 格式 为 : 表达 式 .FileDialog (fleDialogType) 。 其 中 ，fleDialogType 是 必需 参数 ， 用 于 指定 文件 对 话 框 的 类 
型 。 该 参数 可 以 为 以 下 常量 。 


@。 msoFileDialogFilePicker: 指 “ 文 件 选取 器 ”对 话 框 ， 表 示 允 许 用 户 选择 一 个 文件 。 
@ msoFileDialogFolderPicker: 指 “文件 夹 选 取 器 ”对 话 框 ， 表 示人 允许 用 户 选择 一 个 文件 夹 。 
@ msoFileDialogOpen: 指 “打开 ”对 话 框 ， 表 示人 允许 用 户 打 开 一 个 文件 。 


@ msoFileDialogSaveAs: 指 “另存 为 ”对 话 框 ， 表 示人 允许 用 户 保存 一 个 文件 。 


在 步骤 09 的 代码 段 中 ， 还 使 用 了 FileDialog.Title 属 性 ， 它 用 于 设置 或 获取 使 用 FileDialog 属 性 显示 的 文件 对 话 框 的 标题 。 该 属性 可 读 / 写 。FileDialog.Filters.Clear 和 FileDialog.Filters.Add 方 法 用 于 设置 对 话 框 中 
选择 文件 的 类 型 。 


知识 链接 “引用 Word 文 档 属性 
在 VBE 编 程 环境 中 打开 “引用 ”对 话 框 ， 然 后 匀 选 Microsoft Word 16.0 Object Library 复 选 框 ， 即 可 在 Excel VBA 中 引用 Word 文 档 属性 。 
重点 语法 与 代码 剖析 : FileDialog.Show 方 法 和 FileDialog.Selectedltems 属 性 的 用 法 


FileDialog.Show 方 法 用 于 显示 文件 对 话 框 并 返回 一 个 Long 类 型 的 值 ， 指 示 用 户 按 下 的 是 “操作 ”按钮 (-1) 还 是 “取消 ”按钮 (0) 。 调 用 Show 方法 时 ， 在 用 户 关闭 文件 对 话 框 之 前 不 会 执行 其 他 代码 。 
在 “打开 和 “另存 为 ”对 话 框 中 ， 使 用 Show 方法 后 会 立即 使 用 Execute 方 法 执行 用 户 操作 。 其 语法 格式 为 : 表达 式 .Show。 其 中 ，“ 表 达 式 ”是 一 个 代表 FileDialog 对 象 的 变量 


FileDialog.SelectedItems 是 只 读 属 性 ， 用 于 获取 一 个 FileDialogSelectedItems 集 合 。 此 集合 包含 用 户 在 使 用 FileDialog 对 象 的 Show 方法 显示 的 文件 对 话 框 中 所 选 文件 的 路 径 列 表 。 其 语法 格式 为 : 表达 
式 .SelectedItems。 其 中 ，“ 表 达 式 ”是 一 个 代 表 FileDialog 对 象 的 变量 。 


13.1.2 ”编写 代码 将 文档 内 容 复 制 到 指定 工作 表 中 


获取 文档 的 保存 位 置 后 ， 本 小 节 接 着 编写 VBA 代 码 将 文档 内 容 复制 到 指定 的 工作 表 中 ， 实 现 自动 制作 产品 报价 单 。 具 体操 作 如 下 。 


步骤 01 编写 代码 创建 指定 品牌 的 报价 单 工作 表 。 继 续 上 一 小 节 的 操作 ， 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 CreateSheet0 过 程 的 第 1 部 分 代码 ， 用 于 新 建 临 时 工 
作 表 ， 并 复制 工作 表 表 头 。 


通用 ) vv 
' 创建 指定 品牌 的 报价 蛙 


sub CreateSheet(Source hs Worksheet, name 
As String, Path AAS Strine) 
' 生成 新 的 工作 表 
Dim temp As Worksheet 
Set temp = Worksheets,. Add 
tenmp . Name 三 Nane 


复制 工作 表 表 头 
Source.Rangeft al:D2 ) .Copy tenp.Range(t al15”) 
Dim almrow As Integer 
almrow = 17 


步骤 02 编写 代码 将 原 工作 表 中 指定 品牌 产品 的 报价 数据 复制 到 临时 工作 表 中 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 CreateSheet() 过 程 的 第 2 部 分 代码 ， 用 于 将 同 
一 品牌 产品 的 记录 复制 到 临时 工作 表 中 。 


| 
人 


Dim SrowNum As Integer z : 
SrowNunm = Worksheets( 产品 报价 单 ”).Range( BA2”). 
CurrentReglon,. Rows. Count 
Dim row As Integer 
For row = 3 Io srowhum 
If Source, Cells (row, 1) = nane Then 
With Source : 
.Rangel.Cells (row, 1), .Cellstlrow, 4)).Copy 
temp. Cells (aimrow, 1).PasteSpecial 
Paste:=xlPasteColumnYidths 
temp. Paste 
End With 
almrow = almrow + 1 
End I 
Next row 


知识 链接 ”特殊 粘贴 
特殊 粘贴 就 是 选择 性 粘贴 ， 是 将 剪贴 板 中 的 信息 按 条 件 粘 贴 到 指定 位 置 ， 可 只 粘贴 其 格式 、 值 或 数字 、 公 式 、 批 注 等 。 在 Excel VBA 中 ， 可 使 用 Range 对 象 的 PasteSpecial 方 法 来 实现 特殊 粘贴 。 
重点 语法 与 代码 剖析 : Range.PasteSpecia| 方 法 的 用 法 


Range.PasteSpecial 方 法 用 于 将 Range 从 剪贴 板 粘贴 到 指定 的 区 域 中 。 其 语法 格式 为 : 表达 式 .PasteSpecial (Paste，Operation，SkipBlanks，Transpose) 。 其 中 ，Paste 是 可 选 参数 ， 其 数据 类 型 为 XIPasteType， 
用 于 指定 要 粘贴 的 区 域 。Operation 是 可 选 参 数 ， 其 数据 类 型 为 XIPasteSpecialOperation， 用 于 指定 粘贴 时 的 计算 操作 。SkipBlanks 是 可 选 参数 ， 其 数据 类 型 为 Vatiant。 如 果 该 参数 的 值 为 True， 则 不 将 剪贴 板 上 
区 域 中 的 空白 单元 格 烙 贴 到 目标 区 域 中 。 其 默认 值 为 False。Transpose 是 可 选 参 数 ， 其 数据 类 型 为 Vatiant。 如 果 该 参数 的 值 为 True， 则 在 粘贴 区 域 时 转 置 行 和 列 。 其 默认 值 为 False。 


XIPasteType 用 于 指定 要 粘贴 的 区 域 ， 其 常量 值 如 下 表 所 示 。 


名 称 bs 
XxPasteAlExceptBorders | 7 自由 队 过 外 的 全 部 内 容 
使 用 源 主题 粘贴 全 部 内 容 
”xPasteColumnWidths | 8 | 粘贴 复制 的 列 宽 
粘贴 批注 


名 称 me 


I 


XIPasteSpecialOpetation 用 于 指定 工作 表 中 目标 单元 格 的 数字 数据 的 计算 方式 ， 其 常量 值 如 下 表 所 示 。 


名 称 摘 述 


WPesteSpeoalOperatonAdd | 复制 的 数据 与 目标 单元 格 中 的 值 相 加 
XlPasteSpecialOperationDivide | 5 | 复制 的 数据 除 以 目标 单元 格 中 的 什 


复制 的 数据 乘 以 目标 单元 格 中 的 什 
粘贴 操作 中 不 执行 任何 计算 
复制 的 数据 减 去 目标 单元 格 中 的 什 


步骤 03 ”编写 代码 将 选取 的 文档 嵌入 工作 表 中 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 CreateSsheet(0 过 程 的 最 后 一 部 分 代码 ， 其 中 使 用 Shapes.AddOLEObject 方 法 
将 指定 路 径 下 的 Word 文 档 ( 即 用 户 选取 的 Word 文 档 ) 嵌入 到 当前 工作 表 中 。 


' 将 指定 的 Word 文 档 嵌 入 到 Excel 工 作 表 中 - 


Dim area As Range , 
Set area = temp. Ranee(’ al:D14 ) 
temp. Shapes. AddOLEOb ject (Filename:=Pathy . Select 
With Selection. ShapeRange 
. LockhispectRatio = False 


,Left = area. Left 
.lop = area. [op 
. Height = CSne (area. Height) 
.Width = CSne (area. Width) 
End With 
End Sub 


步骤 04 ”运行 “报价 单 0” 过 程 代码 。 返 回 Excel 视 图 ,在 “开发 工具 ”选项 卡 的 “代码 ”组 中 单 击 “ 宏 ”按钮 ， 弹 出 “ 宏 ” 对 话 框 。 在 “ 宏 名 ”列表 框 中 单 击 “报价 单 ” 选 项 ， 表 单 击 “ 执 行 ”按钮 ， 
如 下 图 所 示 ， 即 可 执行 “报价 单 0” 过 程 代码 。 


w | | 搜索 "原始 区 忻 " 


收 改 日 期 类 型 


2017/12/1 13:30 Microsoft Word .. 
2017/12/1 13:31 Microsoft Word .. 


步骤 06 ”选择 索尼 爱立信 手机 的 产品 描述 。 接 着 弹出 “请 选择 索尼 爱立信 手机 的 产品 描述 ”对 话 框 ， 在 地 址 栏 中 选择 文档 保存 的 位 置 ， 单 击 “ 索 尼 爱 立信 手机 的 简介 .docx” 选 项 ， 单 击 “ 确 定 ”按钮 ， 
如 右 图 所 示 。 


小 出 “ 实例 文件 ， 第 13 章 ， 厌 站 六 件 


组 织 了 新 建文 件 去 


Ea 
Microsoft Excel 


隐 OneDrive 


文件 名 (N): | 案 尼 要 立信 手机 的 简介 .docx 


a017 2 13:31 


修改 日 期 


e017 2 13:30 Microsott WWord .., 


Microsoft Weord .. 


“| Word 文 档 [".doex) 


步骤 07 ”查看 索尼 爱立信 手机 的 报价 单 。 此 时 工作 簿 中 新 建 了 “索尼 爱立信 ”和 “诺基亚 ”两 个 工作 表 ， 切 换 至 


分 内 容 是 手机 的 报价 ， 如 下 图 所 示 。 


上 B 
索尼 爱立信 和 手机 的 简介 
索尼 受 立 信 ， 和 简称 索爱 ， 是 2001 年 由 皮 立 信和 与 宕 尼 公 司 共同 创立 的 ; 
元 向 间作 一 下 案 灾 手机 外 名 ， 
党 立 们 联手 后 ， 其 手机 以 独 竺 的 亿 型 ， 
司 计 可 请 是 独 有 具 丘 心 ， 
的 妹 乐 功 
的 重 


[上 


-a 


能 世 是 消费 者 选 反 的 男 一 和 理由 ， 

Wallaman 手机 以 其 功能 ， 
寄 过 和 手机 新 就 的 推出 ， 都 有 其 共同 的 特点 ， 亲 是 满足 ; 
walkman 手机 系列 以 音乐 为 主打 ， 而 拍 砚 手机 则 注重 撤 惨 的 动能 . 
用 了 和 款 尼 cybershot 的 摄像 头 ， 
KB00c 与 二 10c 的 仅 计 ， 六 求 在 报 像 可 果 上 精益 求 精 . 
寄 爱 手机 报信 下 调 囊 度 


剖 如 款 有 的 wallman 于 机 系列 ， 


| 


一 一 
Le Lo ha 品 


也 比较 快 ， 也 是 少 足 市 场 追 运 潮 流 的 心态 - 


| 一。 一 
Ch II 


过 尼 受 刀 入 E20De 


听 音 乐 一 这 丙种 或， 可 齐 一 强 享 演 . 
mi ol TU TT E TT 


和 还 /摄像 基 : 及 站 邱 俐 东 


“索尼 爱立信 " 


出 色 的 播放 效果 ， 成 为 时 代 潮 人 的 磷 儿 。 
消费 者 的 茶 项 特别 者 隶 ， 例 加 
索爱 妇 汞 列 和 报信 手机 ， 膝 
洱 足 了 拍照 发 妙 友 的 要 求 ， 索 爱 最 新 乎 机 上 818e 正 是 沼 用 了 
由 于 寄 爱 的 手机 着 至 


光 彩屏 ， 685538 色 , STH, 128x128 像 来/ 针 声 ; 2 


工具 山 


二 


工作 表 ， 可 看 到 该 表 的 前 半 部 分 内 容 是 索尼 爱立信 手机 的 简介 ， 后 半 部 


包 育 质 音 的 有 有 度 ， 


案 雪 于 机 前 身 感 灾 立 代 公 司 推出 的 竹 机 ， 从 2001 年 来, 案 尼 与 
绎 大 的 保 乐 功能 迅速 占有 人 市场， 总 尼 公 司 对 于 外 型 的 
许 过年 可 人 是 者 中 了 过关 的 精 庄 的 包 闲 ， 从 而 选 疮 去 和 芝 。 


同时 其 丰 和 至 
很 党 现代 的 油 流 韦 


寻 朱 功能 蚤 大 的 家 案 闪 戏 
是 必 不可 少 的 ， 忘 惨 手 机 游戏 兼容 java 游戏 ， 在 游戏 选 泽 上 用 比较 夫 的 字 间 ， 


玩家 可 以 一 边 


1, D0 


网 妆 制 式 :8 吕 850/50071800/1500, EUeEr 手 机 


至 尼 尝 亚信 E55De 
懂 节 :站 站 措 展 革 


外 形 ; 直 板 / 主 屏 共 数 : 条 屏 , 26 力 区 ,IFD,176 
220 惊 素 , 1, 9 英寸 /铃声 :和 和 纺 , 吉 持 MP3 忽 户 , 摄 


¥1, 500 


国 络 制式 :B55 3900/ 坟 800y1500/ 手 机 相形 : 直 横 /8 


索尼 胎 杰 信 EElB¢ 
摄 情夫 :内 站 抒 全 水 


素 尼 县 立信 诺基亚 | 产品 报价 单 | 产品 销 告 专 | Sheet3 | 


主屏 基数 :条 有 屏 , 25 万 色 , 了 HT, 40 区 520 履 素 , 2.0 
吾 寸 /党 育 ,72 和 琵 , 束 持 NP3 窟 声 , 克 持 目 痢 榨 声 / 


1 200 


步骤 08 ”查看 诺基亚 手机 的 报价 单 。 切 换 至 “诺基亚 ”工作 表 ， 可 看 到 在 该 工作 表 的 上 半 部 分 显示 了 诺基亚 手机 的 简介 ， 在 下 半 部 分 显示 了 诺基亚 手机 的 报价 ， 如 下 图 所 示 。 


由 B 
诺基亚 于 机 简介 
诺基亚 公司 专注 于 乞 动 通信 相关 产品 的 研发 与 制造 ， 包 括 称 动 电话 产品 及 字 媒 住 、 娱 乐 、 通 
入 网 络 和 企业 级 的 解决 方案 。 诺 基 亚 是 区 动 通信 的 全 球 领先 者 ， 致 力 于 提供 昌 用 和 安全 的 产品 ， 
”也 括 移动 电话 、 图 像 、 游 戏 、 媒 体 以 及 面向 移动 网 络 运营 商 和 企业 用 户 的 解决 方案 ， 从 而 丰富 人 
7 们 的 生活 ， 提 升 其 工作 效率 。 诺 基 亚 股票 在 全 球 五 个 主要 证 券 市 场 上 市 ， 股 东 席 布 世 界 各 地 ， 
、 厂 兰 ， 这 是 第 一 大 优点 
、 质 量 好 
、 手 机 的 告 后 服务 网 点 比较 事 ， 而 且 服 务 还 不 错 
、 价 格 比 较 便宜 
、 电 池 待 机 时 间 长 


各 种 手机 品牌 的 报价 


名 笠 型 号 规格 报价 
网 结 制 式 :CS 850790071L180071900, EDCE/ 手机 
外 形 : 滑 盖 / 主屏 基数 : 税 屏 , 1600 万 色 , TFET, 240X% 
像素, 2. 0 训 寸 /系统 :Series 各 ,第 二 版/ 铃 Pe 
N8600 Luna 声 ,64 和 弦 , 支持 WP3 和 铃声, 支持 i 
让 入口， 直入 局 十 ， 所 上 由 局 ++, 百 。 263, H. 264, 格式 /报信 
头 : 内 四 摄像 头 
网 阁 市 式 :WCDNMA (C36) ,GSM 
B50/900/1800/1900, EDGE, 手 机 外 形 ; 折 荔 / 主 屏 
凑 数 :彩屏 , TFT, 240X320 像 素 , 2. 4 黄 计 1670 万 2 730 
区 /系统 :Symbian 9.2, Series 60 案 3 上 所/ 管 
| _ 声 :64 和 该 , 支持 呈 3 冷 声 / 摄 俐 其: 内置 摄 像 头 
索尼 爱 本 信 | 诺基亚 | 产 g8 报 价 单 | 产品 销售 地 | Sheet3 全) 


13.2 ” 目 动 生成 销售 分 析 报 告 


为 了 总 结 和 分 析 产 品 销售 中 存在 的 问题 或 不 足 , 许 多 公司 都 要 求 营 销 部 门 定期 撰写 销售 分 析 报 告 。 好 的 销售 分 析 报 告 要 有 详细 的 数据 表格 和 直观 的 图 表 ， 以 增强 说 服 力 。 本 节 将 通过 编写 Excel VBA 程 
序 代码 ， 根 据 用 户 选择 的 数据 区 域 生 成 图 表 ， 插 入 事先 制作 好 的 Word 文 档 模板 中 ， 自 动 生成 各 产品 的 销售 分 析 报 告 。 


扫 码 看 视频 


eo 


Le : 实例 文件 \ 第 13 章 \ 原 始 文 件 \ 产 品 汇总 表 .xlsx、 和 销售 分 析 报 告 .dotx 


实例 文件 \ 第 13 章 \ 最 终 文件 \ 自 动 生 成 分 析 报 告 .xlsm、 和 销售 分 析 报 告 .docx 


为 了 将 数据 表格 和 图 表 插 入 Word 文 档 模板 的 准确 位 置 ， 需 要 在 Word 文 档 模 板 中 添加 书签 进行 定位 ， 然 后 编写 相应 的 Excel VBA 程 序 代码 。 具 体操 作 如 下 。 


打开 销售 数据 。 打 开 原 始 文 件 “ 产 品 汇 总 表 .xlsx”， 可 看 到 在 “产品 销售 表 ” 工 作 表 中 已 录入 了 2018 年 上 半年 各 产品 的 销售 数据 ， 如 下 左 图 所 示 。 


，| 单 位 : 万 元 2018 年 上 半年 各 产品 的 销售 表 


OO 
Ta6oo Luna | Lima .32 d 己 7 3 5.2 2 ”6.23 3 站 9 8. 32 Ep 
ne 

| E20De 54 32 864. 23 
”| 豪 尼 要 立 迟 |K55De 49, 31 


产品 报价 单 产品 销售 去 | Sheat3 


步骤 02 ”打开 销售 分 析 报 告 模 板 。 打 开 “ 销 售 分 析 报 告 .dotx” 文件 ， 在 该 文档 模板 中 按照 下 表 所 示 添 加 书签 ， 效 果 如 下 右 图 所 示 。 


2018 年 下 半年 手机 销售 分 析 报 告 : 

时 间 : 上 

报告 人 :上 
经 销售 部 销售 额 统计 分 析 , 有 网 期 间 销 售 情况 如 下 表 所 示 : * 
数据 对 应 的 柱 形 图 如 下 : 


k 
站 立 的 动 仿 折 此 图 如 下 : 


位 置 书签 名 称 
前 


知识 链接 “书签 功能 
书签 用 于 标记 由 用 户 指定 的 位 置 或 选 定 的 文本 ， 以 供 将 来 引用 。 例 如 ， 可 以 使 用 书签 来 标注 需要 在 以 后 修订 的 文本 。 使 用 “书签 ”对 话 框 可 以 直接 定位 到 相应 文本 。 


步骤 03 ”插入 模块 。 进 入 VBE 编 程 环境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (产品 汇总 表 .xlsx) ”选项 ， 在 弹出 的 快捷 菜单 中 单 击 “ 插 入 > 模块 ”命令 ， 插 入 模块 ， 如 下 图 所 示 。 


-Solver (SOLYE 及 . ILAN) 
由 -如 YBAProject (FUNCRES.ELAE) 
日 -如 YBAProject (FF 名 表 . 志 Dai 
器- orosoft Exocel] 对 象 - 
一 须 |] Shaatl 【产品 报价 单 ) 


-图 ] sheet2 (产品 销售 表 ) 
Sheet3 (Sheet3) 
Thi sWaorkbook 


步骤 04 打开 “引用 ”对 话 框 。 单 击 菜单 栏 中 的 “工具 ”菜单 ， 单 击 “ 引 用 ”命令 ， 如 下 图 所 示 ， 即 可 打开 “引用 ”对 话 框 。 


帮助 (H) 


附 力 全 件 (A).. 

产 (IM).… 

先 项 (OO 〇 ).. 
VBAProject 屋 性 (5).… 
数字 签名 (D)... 


步骤 05 引用 Microsoft Word 16.0 Object Library。 在 “可 使 用 的 引用 ”列表 框 中 义 选 Microsoft Word 16.0 Object Library 复 选 框 ， 单 击 “ 确 定 ”按钮 ， 如 下 左 图 所 示 。 
引用 - VBAProject 


可 司 用 的 引用 tA): 


| Microsoft Windows Installer Object A | 
[| Microsoft Windows Media Flaver Het, 
| Microsoft Windows Media Plaver Net, 
| JMicrosoft WinHTITP Services, verslo 
国人 和 WII Scripting Yl.2 Libra 
BA erosott Word 16.0 Dbiect Librarwv 
| Mi crosoft WSNAN We Vi.0 Ll 
[| [Microsoft WI, v3.0 

[| IMicrosoft WIL, vé.0 

| |Microsoft. Office. PowerPivot. Excelh, 
| |Microsoft JScript 

| JMimeDir 1.0 Type Library 
MniDownloadProxyLib 1.0 Type Libr: 、 


| | wm Tntaernal Wah Ryanwear awvaent ein 


€ > 


Microsoft Word 16.0 Object Library 
十 他 : C:\Prozram Files\Microsoft Office\Officel6\MSWORD. 
语言 。 。 标准 


步骤 06 ”编写 “自动 生成 分 析 报 告 0” 过 程 的 代码 。 在 “模块 1 (代码 ) ”窗口 中 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 1 部 分 代码 ， 用 于 获取 用 户 选择 的 数据 区 域 ， 
并 检查 该 区 域 的 合法 性 。 


自动 生 成 分 析 报 告 


Sub 自动 生成 分 析 报告 

汪汪 在 工作 

Dinmn area hs Ranee 

Set area = Selection 

em A hs Worksheet 

ht = area. Parent 

给 过 衣 户 所 训 缉 所 区 域 的 合法 性 

If Check (area) = False Then 
Exit Sub 

End I 


步骤 07 编写 代码 调用 对 话 框 获 取 Word 模 板 的 路 径 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 2 部 分 代码 ， 用 于 设置 对 话 框 的 标题 、 选 
取 类 型 、 选 择 文件 的 个 数 等 属性 。 


六 
Dim Path 上 String 
Dinm dialoe hs FileDialoe 
Set dialog = Application.FileDialog _ 


(nsoFileDialogFilePicker) 
dialog. Title =“ 博 选择 用 于 生成 报告 四 Word 模 板 ” 
dialog.Filters.Clear z 
dialog.Filters.Add “Word 模板 庚 件 ”， 
dialog.FilterIndex = 0 
dialog. AllowNMultiSelect = False 


步骤 08 编写 代码 获取 选择 文件 的 路 径 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 3 部 分 代码 ， 用 于 判断 是 否 选 择 了 文件 。 若 已 选择 文 
件 ， 则 获取 该 文件 的 路 径 。 


二 用 -| [上 生成 析 报 告 。 ~ 
判断 用 户 是 再 选取 了 文件 ， 选 取 后 保存 其 路 径 
It 由 alog, Show = -1 Then 

= dialog. SelectedItems (1) 


Path 
Else 


Exit Sub 


End If 


Set dialog = Nothine 
Appllicatlion.DisplayAlerts = False 


步骤 09 ”编写 代码 获取 用 户 选择 区 域 的 起 止 行列 号 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 4 部 分 代码 ， 用 于 获取 用 户 选 择 区 域 的 起 


止 行 号 和 列 号 。 


| 运用 ”~| | 自动 生成 分 析 报告 ~ 
"获取 用 户 所 选 数 据 区 域 的 起 止 行列 号 


Din rowb is Integer 
Dinm rowe hs Inteeer 
Dim colb As Integer 
Dinm cole hs Integer 


rowb = 
rowe = 


colb = 


cole 


area. row 
area. row + area. Rows.CLount 一 1 
area. Col unmn 
area.Columnns.Count - 1 


步骤 10 ”编写 代码 将 选择 的 区 域 复制 到 临时 工作 表 中 ， 并 添加 行 标题 和 列 标题 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 生成 分 析 报 告 )” 过 程 的 第 5 部 分 代码 ， 


它 使 用 Copy 方 法 复制 数据 ， 生 成 临时 工作 表 。 


目 动 生成 分 析 报 告 


' 制作 临时 工作 表 
Dim temp hs Worksheet 
Set temnp = Worksheets. Add 
"制作 用 户 所 选 数 据 区 域 的 了 标题 
sht. Cells (2, 时 Copy temp.Cells (1, 1) 
sht. Cells (2，2). popy timp cells tl, 2) 


制作 用 户 所 选 数 据 区 和 的 列 
sht. Range (sht.Cells(2, colb), | 
sht.Cells(2, cole + colb)).Copy temp _ 


.Cells (1l, 3) 

' 复制 用 尸 所 选 数据 区 域 

sht. Range (sht. Cells (rowb, 1), sht.Cells _ 
(rowe, 2)).Copy temnp.Cellst2, 1) 

area. Copy tenp.Cells (2,， 3) 


知识 链接 ”复制 指定 内 容 到 指定 位 置 
常规 的 复制 是 将 指定 内 容 复 制 到 剪贴 板 中 ， 然 后 将 其 粘贴 到 指定 位 置 ， 在 Excel VBA 中 可 使 用 Copy 和 Paste 方 法 来 实现 。 另 外 ， 也 可 以 用 Copy 方 法 将 指定 内 容 直 接 复制 到 指定 位 置 。 
重点 语法 与 代码 剖析 : Range.Copy 方 法 的 用 法 


Range.Copy 方 法 用 于 将 单元 格 区 域 复制 到 指定 的 区 域 或 剪贴 板 中 。 其 语法 格式 为 : 表达 式 .Copy (destination) 。 其 中 ，“ 表 达 式 ”是 一 个 代表 Range 对 象 的 变量 。destination 是 可 选 参 数 ， 用 于 指定 要 复制 
到 的 目标 区 域 。 如 果 省 略 此 参数 ，Excel 会 将 区 域 复制 到 剪贴 板 。 在 步骤 10 的 代码 段 中 ， 主 要 使 用 该 方法 将 sht 工 作 表 中 的 指定 数据 复制 到 temp 工 作 表 中 的 指定 区 域 。 


步骤 11 编写 代码 创建 柱 形 图 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 6 部 分 代码 ， 用 于 根据 临时 工作 表 中 的 数据 创建 柱 形 图 ， 并 设 
置 柱 形 图 的 格式 。 
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"在 蛋 时 工作 表 中 创建 柱 形 图 
Charts. Add 
ictiveChart, ChartType = xlCcolumnClustered 
ActliveChart,. SetSourceData Source:=temp. _ 
Range( Anal ) .CurrentRegion，PLotBy:=XLRowsS 
ActiveChart,. Location where:=xlLocationhsObject, _ 
Name:=temp. Name 
" 设 盏 柱 形 图 的 格式 
With ActiveChart 
.HasTitle = False 
. hxes (xlCategory, xlPrimary).HasTitle = False 
. Axes (xlValue, xlPrimary).HasTitle = False 
. Axes (xlVYalue). MinimumSscale = 40 
. Axes (xlValue). MaijorUnit = 5 
.Axes (xlYalue). MaximumnScale = 70 
End With 


步骤 12 编写 代码 复制 生成 折线 图 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 7 部 分 代码 ， 用 于 复制 已 创建 的 柱 形 图 ， 并 更 改 图 表 类 型 
为 折线 图 。 
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' 复制 柱 形 图 并 更 改 其 类 型 为 折线 图 
hctiveSheet. Chartobjects (1). Copy 
temp. Ranget Al5 ). Select 

" 粘贴 图 表 
ActiveSheet. Paste 
ActiveSsheet. er tobiects (2) .Activate 
' 更 改 图 表 的 类 
Rs xlLineMarkers 


知识 链接 “坐标 轴 的 单位 设置 


坐标 轴 是 界定 图 表 绘 图 区 的 线条 ， 用 做 度量 的 参照 框架 。Y 轴 通常 为 重 直 坐标 轴 并 包含 数据 ， 又 轴 通 常 为 水 平 坐标 轴 并 包含 
值 刻 度 和 主要 刻度 单位 。 


重点 语法 与 代码 剖析 : 设置 纵 坐 标的 格式 


分 类 。 使 用 Axes 对 象 的 MinimumScale 和 MajorUnit 属 性 可 以 设置 纵 坐 标 轴 的 最 小 


在 步骤 11 的 代码 段 中 ， 使 用 Axes 的 MinimumScale 属 性 设置 纵 坐 标 轴 的 最 小 值 刻度 为 40， 使 用 MajorUnit 属 性 设置 纵 坐 标 轴 的 主要 刻度 单位 为 5， 使 用 MaximumScale 属 性 设置 纵 坐 标 轴 的 最 大 值 刻 度 为 70。 


步骤 13 拼接 出 各 产品 完整 的 名 称 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 8 部 分 代码 ， 主 要 使 用 循环 i 


称 。 


吾 句 拼接 出 各 产品 完整 的 名 


上 
"拼接 各 产品 名 种 的 字 付 上 捉 


Dim namestr is String 
namestr = “” 
Din row hs Integer 
Ror row = 2 lo area. 上 cows.Lount + 1 
If nanmnestr = “” Then 
namestr = temp.Cells(row, 1).Yalue + 
temp. Cells (row, 2).Value 
Else 
namestr = namestr + 、” + temp.Cells _ 
(FTow，1) .Value + tenp.Cells(row，2 .Value 
End I 
Next row 


步骤 14 编写 代码 创建 Word 对 象 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 9 部 分 代码 ， 用 于 生成 月 份 字符 串 及 根据 用 户 选 择 的 模板 
新 建 Word 文 档 。 


站 动 生成 分 析 扫 和 
"生成 月 份 的 字 和 村 上 串 


Dim monthstr As String 

nonthstr = CStr(Cells(1l, colb)) + “全 ”+ 
CSstriCellstl, cole + colb)) 

创建 Yord 对 和 象 

Din nyVWord as DOb]ect 

Set WyWord = CreateObject( Word. anpplication | 

With myWord 


"用 用 户 选择 的 模板 新 建 Word 文 档 

Dim myDocx As Object : 

Set myDocx = .Docunents. Add(Temnplate:=Path, 
Visible:=True) 


知识 链接 ”创建 一 个 ActiveX 对 象 的 引用 


如 果 需 要 将 制作 好 的 报告 表格 或 图 表 导 出 到 Wotrd 文 档 中 ， 可 使 用 CreateObject0 函 数 创 建 一 个 Word 文 档 对 象 的 引用 ， 然 后 执行 相应 的 属性 操作 。 
重点 语法 与 代码 剖析 : CreateObject(0 国 数 的 用 法 


CreateObject0 函 数 用 于 创建 并 返回 一 个 对 ActiveX 对 象 的 引用 。 其 语法 格式 为 : CreateObject (class[，servername]) 。 其 中 ，class 是 必需 参数 ， 其 数据 类 型 为 Vatiant (String) ， 用 于 指定 要 创建 的 应 用 程序 
名 称 和 类 ; servername 是 可 选 参数 ， 其 数据 类 型 为 Variant (Stting) ， 用 于 指定 要 在 其 上 创建 对 象 的 网 络 服务 器 名 称 。 如 果 setvername 是 一 个 空 字 符 串 〈'"") ， 则 使 用 本 地 机 器 。class 参 数 使 用 appname.objecttype 
这 种 语法 ， 包 括 以 下 部 分 : appname 是 必需 参数 ， 其 数据 类 型 为 Variant (Stting) ， 用 于 指定 提供 该 对 象 的 应 用 程序 名 ; objecttype 是 必需 参数 ， 其 数据 类 型 为 Variant (Stting) ， 用 于 指定 待 创 建 对 象 的 类 型 。 
注意 : 每 个 支持 自动 化 的 应 用 程序 至 少 应 提供 一 种 对 象 类 型 。 


在 步骤 14 的 代码 段 中 ，Set myDocx=.Documents.Add (Template: =Path，Visible: =True) 语句 使 用 Object.Add 方 法 根据 用 户 选 择 的 Word 文 档 模 板 新 建 一 个 Word 文 档 。 


步骤 15 编写 代码 在 文档 中 的 书签 位 置 添加 相应 的 数据 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 10 部 分 代码 ， 用 于 将 当前 时 间 、 报 告 
人 、 品 牌 名 称 和 月 份 添加 到 相应 的 书签 位 置 。 


With . Select1 on 
' 写 入 时 间 


.Goto what:=wdsoToBookmark, 
.TypeText Text:=” 多 恒 ” 
与 入 品牌 名 种 


小 


.Goto What:=wdcoToBookmark， 


Name:=" date” 


Namne:= TeporteT 


二 者 


Name:=" names” 


.TYDeLIext Text:=namestr 


与 入 月 份 


步骤 16 ”编写 代码 在 Word 文 档 中 插入 Exce| 数 据 表格 及 Excel 柱 形 图 和 折线 图 。 在 “模块 1 (代码 ) “ 
用 于 将 Excel 中 新 建 的 临时 工作 表 中 的 数据 表格 、 柱 形 图 和 折线 图 添加 到 Word 文 档 中 相应 的 书签 位 置 。 


窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 11 部 分 代码 ， 


二 J 区 
(通用 ) v| | 自动 生成 分 析 报 告 v 

岳 入 Excel 数 据 来 税 - 
.Goto what:=wdGoToBookmark, Name:=" table 
tenp. Raneel’ Al’).CurrentReeion. Copy 
.TypeText Text:=wbTab 
. PasteExcelTable False, False, False 
' 质 入 Excel 杜 形 图 
.Goto what:=wdGoToBooknark, Name:=" zhuxingtu 
temp. ChartObijects (1). Chart,. CopyPicture xlScreen 


. Faste | 
' 插入 Excel 折 线 图 四 4 
.Goto What:=wydeoToEoocknmark，Nanme:=” zhexiantu” 
temp. ChartObjects (2) ,Chart. CopyPicture XLScreen 
. Paste 
End YWith 
End With 


知识 链接 ”指定 插入 Word 文 档 模 板 的 数据 位 置 及 内 容 
在 Word 文 档 模 板 中 使 用 书签 标记 好 Excel 数 据 插入 的 位 置 后 ， 可 使 用 GoTo 方 法 来 指明 位 置 ， 然 后 使 用 TypeText 方 法 指明 插入 的 内 容 。 
重点 语法 与 代码 剖析 : Selection.GoTo 和 Selection.TypeText 方 法 的 用 法 


Selection.GoTo 方 法 用 于 将 插入 点 移 至 紧 靠 指定 项 之 前 的 字符 位 置 ， 并 返回 一 个 Range 对 象 〈 除 wdGoToGrammaticalError、wdGoToProofreadingEtrtor、wdGoToSpellingError 常 量 之 外 ) 。 其 语法 格式 为 : 表 
达 式 .GoTo (What，Which，Count，Name) 。 其 中 ，What 是 可 选 参数 ， 表 示范 围 或 所 选 内 容 移动 到 的 项 目的 种 类 ， 可 以 是 WdGoToItem 常 量 之 一 。Which 是 可 选 参数 ， 表 示范 围 或 所 选 内 容 要 移动 到 的 项 目 ， 
可 以 是 WdGoToDitection 常 量 之 一 。Count 是 可 选 参 数 ， 用 于 指定 文档 中 的 项 数 。 其 默认 值 为 1， 只 有 正 值 有 效 。 要 指定 范围 或 所 选 内 容 之 前 的 一 个 项 目 ， 可 使 用 wdGoToPrevious 作 为 Which 参数 ， 并 指定 一 个 
Count 值 。Name 是 可 选 参 数 ， 如 果 What 参 数 为 wdGoToBookmatk、wdGoToComment、wdGoToField 或 wdGoToObject， 则 此 参数 指定 一 个 名 称 。 


Selection.TypeText 方 法 用 于 播 入 指定 的 文本 。 其 语法 格式 为 : 表达 式 .TypeText (Text) 。 其 中 ，“ 表 达 式 ”是 必需 参数 ， 表 示 一 个 代表 Selection 对 象 的 变量 ; Text 是 必需 参数 ， 其 数据 类 型 为 Stting， 用 于 
指定 要 播 入 的 文本 。 需 要 注意 的 是 ， 如 果 ReplaceSelection 属 性 为 True， 则 用 指定 文本 替换 选 定 内 容 ; 如 果 ReplaceSelection 属 性 为 False， 则 在 选 定 内 容 之 前 播 入 指定 文本 。 


步骤 17 编写 代码 获取 报告 的 保存 路 径 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “自动 生成 分 析 报 告 0” 过 程 的 第 12 部 分 代码 ， 主 要 使 用 Application.FileDialog 属 性 
获取 报告 的 保存 文件 夹 。 


站 和 

Set dialog = ADDplicatlion.FILeDlialog 
ent oa 

dialog.Title = “人 博 择 保 存 报 各 的 文件 夹 ” 


dialoeg. ee False 


It dialog. Show = -1 Then 
Path = dialoe. SelectedItems (1) 
Else 
Exit Sub 
End If 
Set dialog = Nothineg 


步骤 18 编写 代码 保存 Word 文 档 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “自动 生成 分 析 报 告 0” 过 程 的 最 后 一 部 分 代码 ， 用 于 将 报告 另存 为 Word 文 档 ， 并 删除 临时 
工作 表 。 
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"保存 分 析 报 告 并 关闭 加 | 

nyDocx. Savehs Path +““ 稍 售 分 析 报 言 . docx”，_ 
vodFormatXNMLDocument 

nyDocx. Close 

temp. Delete 


提示 报告 生成 成 功 
JsgBox “销售 分 析 报 童生 成 成 功 ! 
Application. DisplayAilerts = True 
Set myYord = Nothine 

End Sub 


步骤 19 ” 自 定 义 Check0 函 数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 用 户 选择 区 域 是 否 只 有 一 块 区 域 ， 以 及 是 否 选择 行 或 列 标题 。 


oa 


(通用 ) ~ 
' 检查 用 户 所 选 数据 区 域 有 效 性 的 过 程 : 


Function Check (area hs A As Boolean 


"用 尸 只 能 选择 一 块 数据 区 域 


If area. Areas. Count <>» 1 Then 


jsgBox “只 能 选择 一 块 区 域 ” 
Check = False 
Function 


-阴户 不 能 寺 择 标题 

It area. row < 3 area. Column < 2 Then 
JsgBox “个 月 :选择 行 因 是 和 和 别 加 是 < 
Check = False 
Exit Functlon 

End I+t 


步骤 20 ”编写 代码 确保 选择 区 域 不 包含 空白 单元 格 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 检测 用 户 选 择 的 区 域 是 否 包含 空白 单元 格 。 


| 器 ww 


| (通用 ) ~ 


用户 所 选 数 据 区 域 不 能 甩 侣 空白 单元 格 
Check = True 
For Fach one In area 

If one,Value = '* Then 

Check = False 

End If 
Next one 
If Check = False Then 


JsgBox “不 可 以 选择 空 日 单元 格 ” 
End I+t 
End Function 


13.2.2 ”运行 代码 创建 销售 分 析 报 告 


编写 完 VBA 代 码 后 ， 本 小 节 就 来 运行 代码 ， 生 成 销售 分 析 报 告 。 具 体操 作 如 下 。 


步骤 01 ”选择 按钮 控件 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 下 的 “控件 ”组 中 单 击 “插入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


公式 数据 审阅 视图 开发 工具 Power Pivot Q 告诉 我 您 想 要 做 什么 . 


色 x | I MN/ Ret 人 

CT EE - 证 十 pa 已 中 

加 。 Excel COM 加 芝 萝 证 计 模 式 me 源 + UE 和 
执行 对 话 框 区 ! 刷新 数据 


此 [MIL 


中 a | 二 国 

| 四 4Ao 筷 回 国 角 | 

e n ”ActiveX 控件 G 
回国 加 名 表 


2018 年 上 半年 名 加 6 x 书号 绊 
1 月 份 3 月 份 | 4 月 份 | 5 月 份 | 6 月 份 


56. 32| 57. 32 
54.63| 58.63| 61.23| 69.32| 65.32| 63.23 
56. 23 


入 


: 


Ea 


步骤 03 执行 “自动 生成 分 析 报 告 0” 过 程 代码 。 返 回 工作 表 ， 将 按钮 控件 重 命名 为 “生成 销售 分 析 报 告 ”， 然 后 选择 单元 格 区 域 A3: H8， 单 击 “ 生 成 销售 分 析 报 告 ”按钮 ， 如 右 图 所 示 


单位 :万 元 | 2018 年 上 半年 各 


TCDOEOIEICOICOIC 
NB600 Luna 56. 32| 。 57. 32 65.2| 68.23| 59.65| 589.32 lle ] 


NT6 54. 日 3 B63. 23 
ne3 | 5e.2s| 57.42| 65.14| as 62.23| 6s.15 


素 尼 爱 了 立信 


Eslsec 47. 63 D1 21 0D. 23 69, 2 01. 23 G4, 32 


50.33| 52.12| 58.23| 64.23| 59.56| 68.12 


ag | za 
oo |e 
mm | Fy 
= | :可 
[| 
[| 
二; | 一 = 
CD 


摩托 罗拉 


.35| 57.51| 657.13| 65.23| 56.53| 61.23 
53.23| 58.12| 59.21| 68.13| 59.23| 64.32 
-E208 | 57.32| 56.32| 60.32| 65.32| 62.13| 60.23 
S30H-Ed98 


ss. / | 
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工 ， 


上 D 上 F b 


2018 年 上 半年 各 产品 的 销售 表 


HNH8600 Luna 56,. de 57, S32|) Microsoft Excel 
me | sko seal 
zo0e | 50.12| 542 
过 尼 受 立 人 
Ke8l8c 41, 83 51, 21 一 L253 自 4,. 32 
了 托 罗 拉 
oussen | sa Saal se.23] os.13| o4.31| 50.32 
om-nso8 | sa.11| 50.a1| 59.23| 05.32| 58.23| 00.21 


步骤 05 ”重新 选择 数据 区 域 。 返 回 工作 表 ， 选 择 数据 区 域 C2: H7， 单 击 “ 生 成 销售 分 析 报 告 ” 按 钮 ， 如 下 图 所 示 。 


贞 | 


， | 单位 : 万 元 2018 年 上 半年 各 产品 的 销售 表 


| 
| 
| 
| 
| 


56. 32 
56.23| 57.42| 65.14| 09.32| 62.23| 83.15 


素 尼 爱 立信 |K550c 49.31| 53.21| 65.31| #65.21| 58.23| 63.13 


了 罗拉 |oER 2 
= 
io 


2018 年 上 半年 各 产品 的 销售 表 


1 月 从 | 2 月 份 | 3 月 份 | 4 月 份 


| | | 

7 58,63| 。 61,25| os 四 

9 56.23| 57. 和 所 | 5665.1 69.32| 
K200c 50.12| 54.32| 62.31| 63.52| | 

过 尼 爱 立信 |k550¢ 49. 31 | 65. 31 65. 21 
K818c 51.21| 60.23| 65.23| eecs sz 

52. 12 

邯 托 杖 拉 |ROKR 26 57. 51 

56. 32 


xX 
上 销售 分 析 报 告 


nl 
Cx 
BJ 


[| 


oe- Co 

“9 9 = 

Sc ln lS 

| =] = 一 
ED | 上 3 Cr = 

ei 


on 
Ca 
[tJ 


CH E48: 52. 21 
KG70 (Shine) 60. 26 
ECT? 53. 23 


产品 氛 价 单 | 产品 销售 表 | Sheet3 


加 | 归 
bl 
由 = 
co 
En 


步骤 07 ”选择 包含 空 日 单元 格 的 数据 区 域 。 返 回 工作 表 ， 选 择 单元 格 区 域 C5: 110， 单 击 “ 生 成 销售 分 析 报 告 ”按钮 ， 如 下 图 所 示 。 
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: WE 
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步骤 09 ”选择 正确 的 数据 区 域 。 返 回 工 作 表 ， 选 择 单元 格 区 域 C3: H8， 单 击 “ 生 成 销售 分 析 报 告 ” 按 钮 ， 如 下 图 所 示 。 


日 
EL i 
Ti 


品 名 | 号 | 癌 | 电 | 号 加 
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了 ， Eh | 
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邓 尼 胎 立 信 
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ee 2018 年 上 半年 各 产品 的 销售 表 


ne | m8 | ng | me | me [me 
! 56, 32 65, 2| ”68, 23| 59.65| S58,32| ee 报告 | 
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步骤 10 ”选择 用 于 生成 报告 的 Word 模 板 。 弹 出 “请 选择 用 于 生成 报告 的 Word 模 板 ”对 话 框 ， 选 择 “销售 分 析 报 告 .dotx” 文 件 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


时 


ee [sd 
mm 


守 
| 
5 
昌 _ 
是 
8 


RORR 2 


-Ez0B 


| 三 | 加 | 记 于 号 | 王 | 名 
tai | i ty os 
到 


| 产品 报价 单 


_ 团 请 渤 择 用 于 生成 报告 的 Word 模 板 
te ~ 个 国 * 实例 交 件 ， 第 13 章 ; 原始 文件 v | 书 | 搜索 "原始 文件 


Microsoft Exce| ” ”名 称 修改 日 期 


国 OneDrive 四 | 销售 分 析 报告 .dotx 2017/12/1 16:08 Microsoft Word .. 


国 | 此 电脑 

了 30 对 

图 视 机 

大 | 图 片 

恒 文档 

时 下 载 

小 音乐 

有 | 桌 加 

起 本 地 磁盘 (C) 、 二 


文件 名 [[ 册 :| 销 千 分 析 报 告 .dotx -| Word 模 板 立 件 (*.dotx) 


TRID ~ 宇内 | | 


牛 


步骤 11 ”选择 保存 报告 的 文件 夹 。 弹 出 第 2 个 对 话 框 ， 提 示 用 户 选 择 保存 报告 的 文件 夹 ， 在 地 址 栏 中 选择 保存 文件 的 位 置 ， 单 击 “ 确 定 ”按钮 ， 如 下 图 所 示 。 


和 “ 个 图 « 实例 文件 ;第 13 章 ， 最终 文件 


组 织 了 新 建立 件 去 


内 War 
Microsoft Excel 眉 改 日 蔓 


| | OneDrive 这 有 与 接 索 条 件 区 本 的 项 ， 


国 此 电脑 
30 对 象 
加 视频 
司 图 片 
司 文档 
业 下 载 


| 


步骤 12 提示 销售 分 析 报 告 生成 成 功 。 程 序 执行 完毕 后 ， 弹 出 提示 框 ， 提 示 用 户 销售 分 析 报 告 生成 成 功 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 
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单位 ; 万 元 2018 年 上 半年 各 产品 的 销售 表 
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步骤 13 ”打开 生成 的 文档 。 在 目标 文件 夹 中 双击 “销售 分 析 报 告 .docx” 文 档 ， 在 打开 的 文档 中 可 看 到 插入 的 报告 时 间 、 报 告 人 、 品 牌 名 称 、 月 份 和 选择 的 销售 额 表格 ， 如 下 图 所 示 。 


悄 些 芳 析 报告 .docx - Ward 


布局 。 引用 上 邮件 


* a win PI | : = 一 
国 | meshevFEES -| 名 秋 因 三 二 |AaBbC AaBl AaBbc 
本 加 | | te 


a BTUuU-acx ia -A 国人 印 My , Bh 标题 标 串 1 副 标 是 [| 
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2018 年 下 半年 于 机 销售 分 析 报 言 * 
时 间 : Bolg77 
报 洁 人 ;车 恒 + 
好 销售 部 销售 突入 计 分 析 , 供 基 亚 N8600 Luna，N76、N93、 素 尼 爱 立信 E200e、K550e， 
K818c 在 ]1 月 份 至 6 月 份 基 间 销售 情况 如 下 去 所 示 : ， 


T + 
5 站 .2 i 于 交 
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6532， 
62.23 
索尼 爱 立 
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步骤 14 查看 自动 插入 的 柱 形 图 效果 。 程 序 自动 在 “销售 分 析 报 告 .docx” 文档 中 的 柱 形 图 书签 处 插入 了 所 选 数据 的 柱 形 图 ， 效 果 如 下 图 所 示 。 


避 半 诉 我 您 起 要 合 什 么 - 


ce 三 


-|AaBb(C 


数据 对 应 的 柱 形 图 如 下 ，。 


四 诺基亚 N8600 Luna 
加 诺基亚 N76 
目 诺基亚 N93 
四 索尼 爱立信 K200c 
下 索尼 爱立信 k550c 
加 索尼 爱立信 KB1L8c 


1 月 从 2 月 份 ”3 月份 4 月 从 5 月 份 6 月 份 


步骤 15 ”查看 自动 插入 的 折线 图 效果 。 程 序 自动 在 “销售 分 析 报 告 .docx” 文档 中 的 折线 图 书签 处 插入 了 所 选 数据 的 折线 图 ， 效 果 如 下 图 所 示 。 


峭 售 分 析 报 告 .docx - Word 
证 性 市 赔 ”视图 党 告诉 我 称 起 要 做 什么 -， 


多 生 因 三 苇 AaBbC AaBI 
上 | 共 标 硬 1 
数据 对 应 的 动态 折 站 图 如 下 : 


nn 


部 HN NZ = 一 和 = 语 基 亚 N8600 Luna 


一 各 一 诺基亚 N76 

| 生 一 上 一 诺基亚 N93 
一 "一 索尼 爱立信 K200c 
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1 月 份 2 月 份 3 月 份 4 月 份 5 月 份 56 月份 


二 1 页. 共 1 页 174 个 字 ”美香 (着 国 ] 和 惹 


13.3 ”自动 生成 月 销售 份额 分 析 报 告 演示 文稿 


用 Word 制 作 的 分 析 报 告 文档 适合 分 发 给 每 个 人 自行 阅读 ， 如 果 要 在 多 人 会 议 上 进行 宣 进 ， 使 用 PowerPoint 制 作 的 演示 文稿 效果 会 更 好 。 本 节 将 通过 编写 Excel VBA 代 码 ， 自 动 按 月 销售 额 数 据 制 
作 “ 月 销售 份额 分 析 图 ”， 然 后 将 其 生成 演示 文稿 。 


扫 码 看 视频 


he 


一 一 6 上: 实例 文件 \ 第 13 章 \ 原 始 文 件 \ 自 动 生成 演示 文稿 .xlsm 


实例 文件 \ 第 13 章 \ 最 终 文件 \ 自 动 生成 演示 文稿 .xlsm、2018 年 上 半年 月 销售 份额 分 析 .pptx 


本 小 节 将 编写 自动 生成 月 销售 份额 分 析 报 告 演示 文稿 的 VBA 代 码 。 具 体操 作 如 下 。 


01 打开 原始 文件 。 打 开 原 始 文件 ， 效 果 如 下 图 所 示 。 
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步骤 03 引用 Microsoft PowerPoint 16.0 Object Library。 弹 出 “引用 ”对 话 框 ， 在 “可 使 用 的 引用 ”列表 框 中 义 选 Microsoft PowerPoint 16.0 Object Library 复 选 框 ， 单 击 “ 确 定 ” 按 钮 ， 如 下 图 
所 示 。 


引用 


- VBAProject 


可 使 用 的 引用 各) 
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Mi crosott 
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DneHote Word Button Addii 
DneHote Word Content Ser' 
Dutlook 18.0 0biect Libr: 
Dutlook SharePFoint Socia 
Dutlook Social Provider ] 
Dutlook View Control 
OWS 2.0 Client Type Liby: 
PenInputPanel 1.7 
PowerPoint 16.0 Oblect L 
Remote Data Services 6.0 
Script Control 1.0 
Seriptinz Runtime 
Sint|at Thyarr 


职 消 


浏览 介 ) 


Microsoft PowerPoint 16.0 Object Libyrary 
定位 ， C:\Program FILesVWicrosott Office\0fficeal MSPPT.C 
语言 : 标准 


在 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “月 销售 份额 分 析 报 告 0” 过 程 的 第 1 部 分 代码 ， 主 要 根据 各 月 的 产品 销售 额 数 


步骤 04 ”编写 创建 三 维 饼 图 的 代码 。 插 入 “模块 1”， 
据 自 动 创建 三 维 饼 图 。 


和 0 
sub 月 销售 份额 分 析 
创建 着 汪 些 从 新 全 林寺 外 
Dim Sht As Worksheet 
Set Sht = Worksheets(” 产品 销 售 表 ”) 
Dim Col ks Integer 
Col = Sht. Ranee(’A2”).CurrentRegion _ 


se 


调用 创建 纵 饼 图 的 自 定义 过 
CreateChart (i) 
Next 1 


步骤 05 编写 代码 根据 PowerPoint 模 板 创建 演示 文稿 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “月 销售 份额 分 析 报 告 (” 过 程 的 第 2 部 分 代码 ， 用 于 根据 指定 的 
PowerPoint 模 板 创建 演示 文稿 。 


" 按 昌 忠 模 板 创 建 幻 灯 片 
Dim ppt hs PowerPoint. Application 
Dim pre hs PowerPoint. Presentat1lon 
Set ppt = New PowerPoint. Applicatlon 
ppt. Visible = True 

` 创建 演示 丸 稿 
Set pre = ppt. Presentatlons. Add 


pre. SEE YL en el Filename:= "C:\Program _ 
Files\Microsott 0fftficevTemplates 
eet hr png iet edt Dotx” 


步骤 06 ”编写 代码 添加 第 1 张 幻灯 片 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 “月 销售 份额 分 析 报 告 0” 过 程 的 第 3 部 分 代码 ， 用 于 添加 第 1 张 幻灯 片 ， 并 添加 标题 和 副 
标题 文本 。 


(通用 ) | 


"为 第 一 页 幻灯 片 制 下 
With pre. Slides. Add(l1, ppLayoutTitle) 
”添加 标题 文本 
. Shapes (1). TextFrane. TextRange, Text - 
2018 年 上 半年 各 产品 的 销售 分 客 
添加 副 株 题 文本 
de 
= CStr (Date) 
End With 


步骤 07 ”编写 代码 创建 图 表 幻 灯 片 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “月 销售 份额 分 析 报 告 0” 过 程 的 第 4 部 分 代码 ， 使 用 循环 语句 创建 幻灯 片 ， 并 将 各 月 销售 
份额 的 三 维 饼 图 复制 到 幻灯 片 中。 


TT 
Din ] hs ee 
For ] = 1 Charts. Count 
创建 放置 销 关 凡 实 的 分 寻 上 
With pre. Slides. Add(j + 1, ppLayoutBlank) 
' 复制 图 表 


Charts (1) .ChartArea. Copy 
: 柯 贴 如 贴 板 中 由 黑 让 和 内容 
让: PasteSpecial p Fi 
' 设置 图 表 在 幻灯 片 中 居中 显示 : 
center pre. Slidest] + 1 . Shapes (1) 
End With 
Next ] 


步骤 08 编写 代码 保存 创建 的 演示 文稿 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “月 销售 份额 分 析 报 告 0” 过 程 的 最 后 一 部 分 代码 ， 用 于 保存 创建 的 演示 文稿 ， 然 后 关 
闭 创建 的 演示 文稿 。 


[RE 
丙 问 用 户 演示 文 六 的 保存 地 证 


Dim savestr As Strineg 
savestr = Applicatlon. GetSsavehsFilenane 
(FileFilter:=" 2] 炎 ] 片 (+*. pptx) ,A*. pptx 
If savestr <>» “false” Then 
pre. oavens savestr_ 
MsgBox “成 功 生 成 演示 文 杭 ” 
End It oO_ 
' 关闭 演示 文稿 
pre. Close 
Applicatlion. CutCopyllode = False 
Set myppt = Nothine 
End Sub 


知识 链接 ”快速 保存 演示 文稿 
在 “引用 ”对 话 框 中 名 选 Microsoft PowerPoint 16.0 Object Library 复 选 框 后 ， 即 可 使 用 CteateObject0 函 数 创 建 演示 文稿 ， 使 用 Application 对 象 的 GetSaveAsFilename 方 法 保存 创建 的 演示 文稿 。 
重点 语法 与 代码 剖析 : Application.GetSaveAsFilename 方 法 的 用 法 


Application.GetSaveAsFilename 方 法 用 于 显示 标准 的 “另存 为 ”对 话 框 ， 获 取 用 户 输入 的 文件 名 ， 而 无 须 真 正 保存 任何 文件 。 其 语法 格式 为 : 表达 
式 .GetSaveAsFilename (InitialFilename ，FileFiltet，FiltetIndex，Title，ButtonText) 。 其 中 ，InitialFilename 是 可 选 参数 ， 用 于 指定 建议 的 文件 名 。 


如 果 省 略 该 参数 ，Excel 使 用 活动 工作 簿 的 名 称 。FileFiltetr 是 可 选 和 参数， 表示 一 个 指定 文件 筛选 条 件 的 字符 串 。FilterIndex 是 可 选 参 数 ， 用 于 指定 默认 文件 筛选 条 件 的 索引 号 ， 范 围 为 1 到 FileFiltet 指 定 的 得 
选 条 件数 。 如 果 省 略 该 参数 ， 或 者 该 参数 的 值 大 于 可 用 的 筛选 条 件数 ， 则 使 用 第 1 个 文件 筛选 条 件 。Title 是 可 选 参 数 ， 用 于 指定 对 话 框 的 标题 。 如 果 省 略 该 参数 ， 则 使 用 默认 标题 。ButtonText 是 可 选 参 数 ， 
仅 适 用 于 Macintosh 系 统 。 


需要 注意 的 是 ， 在 FileFilter 参 数 中 传递 的 字符 事由 文件 筛选 字符 串 及 其 后 跟 的 MS-DOS 通 配 符 文 件 筛选 规范 组 成 ， 中 间 以 运 号 分 隔 。 每 个 字符 串 都 在 “文件 类 型 ”下 拉 列 表 框 中 列 出 。 例 如 ， 下 列 字符 串 
指定 两 个 文件 筛选 ， 即 文本 文件 和 加 载 宏 : “文本 文件 (*.txt) 、*.txt、 加 载 宏文 件 (*.xla) 、*.xla”。 要 为 单个 文件 筛选 类 型 使 用 多 个 MS-DOS 通 配 符 表达 式 ， 需 用 分 号 将 通配符 表达 式 分 开 


重点 语法 与 代码 剖析 : Application.CutCopyMode 属 性 的 用 法 


Application.CutCopyMode 属 性 为 Long 类 型 ， 可 读 写 ， 用 于 返回 或 设置 剪 切 或 复制 模式 的 状态 。 它 可 为 True、False 或 一 个 XICutCopyMode 常 量 。 其 语法 格式 为 : 表达 式 .CutCopyMode。 其 中 ，“ 表 达 式 ”是 
一 个 代表 Application 对 象 的 变量 。 如 果 其 值 设置 为 True， 显 示 剪 切 或 复制 模式 的 状态 ; 如 果 为 False， 表 示 取 消 剪 切 或 复制 模式 并 清除 移动 边框 。 如 果 该 属性 的 返回 值 为 False， 表 示 不 处 于 曾 切 或 复制 模式 ; 如 
果 返 回 值 为 YCopy， 表 示 处 于 复制 模式 ; 如 果 返 回 值 为 NLCut， 表 示 处 于 剪 切 模式 。 


步骤 09 自 定 义 CreateChart0 函 数 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 CreateChart0 函 数 的 前 半 部 分 代码 ， 用 于 获取 用 户 选择 的 数据 区 域 并 赋值 给 Area 变 量 ， 然 
后 根据 Area 变 量 值 创建 图 表 。 


[createchart 一 ww 
' 创建 月 销售 份额 分 析 图 表 的 过 程 代码 = 


Function CreateChart (a As Integer) 
Worksheets (“产品 销售 表 ”) .hctivate 
Dim area hs kanee 
Set area = Worksheets ("产品 销售 表 ”). 

Ranee (Cells (3, a), Cells(17, a)) 一 


Set ae = Elication. Union(Worksheets _ 
(产品 ) .Range( "A3:B17”), area) 
,创建 国 来 

et Charts. Add After:=Worksheets _ 
(Yorksheets, Count) 

"指正 创建 图 表 有 的 源 数 据 

hctiveChart. SetSourceData Source:=area, _ 
PlotBy:=xlColumns 


步骤 10 ”编写 代码 设置 图 表 的 格式 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 CreateChart() 函 数 的 后 半 部 分 代码 ， 用 于 设置 图 表 的 类 型 、 数 据 标签 格式 和 标题 ， 并 删除 
图 例 。 


"设置 图 表 的 类 型 为 二 维 讲 图 
ActlveChart. ChartType = YXL3DP1e 
ActiveChart. ipplyDataLabels 
ActiveChart. SeriesCollection(1).DataLabels. Select | 
Selection. ShowPercentage = True 
Selectlion. ShowCategoryName = True 
ActiveChart. Location Yhere:=xlLocationisNewSsheet 
ActlveChart. Legend. Delete 
ActiveChart. HasTitle = True 
Active nee ChartTitle. Text = Worksheets 
产品 销售 表 ”) .Cells (2，a) +“ 销 售 份 额 分 析 图 ” 
I my Nane = Worksheets etd 
.Cells (2，a) +“ 销 售 份额 分 析 图 “ 
Set area = = Hothine 
End ep 


步骤 11 自 定 义 center0 过 程 。 在 “模块 1 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代 码 用 于 设置 指定 内 容 在 幻灯 片 中 居中 显示 ， 其 中 使 用 Slide 对 象 的 SlideHeight 和 slideWidth 属 性 获取 
幻灯 片 的 长 、 宽 。 


STEEL ET 
Sub center(theslide hs PowerPoint. Slide, theshape 
As PowerPoint. Shape) 
狭 取 你 灯 片 的 长 和 帘 
Dim helght AS Long 
Dim width As Lons 


With theslide.Parent.PageSetup 
helght = .SlideHeight 
ec = .SlideWidth 
End YW 
昔 束 内 但 在 幻灯 片 中 的 位 置 
theshape. Top = (height - theshape.height) / 2 
theshape.Left = width - theshapne.widthy / 2 
End Sub 


重点 语法 与 代码 剖析 : 设置 幻灯 片 中 的 对 象 居 中 显示 


在 步骤 11 的 代码 段 中 ， 使 用 PageSetup.SlideEHeight 属 性 以 磅 为 单位 返回 幻灯 片 的 高 度 ， 使 用 PageSetup.SlideWidth 属 性 以 磅 为 单位 返回 幻灯 片 的 宽度 。 然 后 用 幻灯 片 的 高 度 〈 或 宽度 ) 减 去 对 象 的 高 度 (或 宽 
度 ) ， 并 设置 对 象 的 左边 距 为 宽度 差 的 1/2， 对 象 的 上 边 距 为 高 度 差 的 1/2， 即 可 让 对 象 在 幻灯 片 中 居中 显示 。 


13.3.2 ”运行 代码 生成 演示 文稿 


编写 完 VBA 代 码 后 ， 本 小 节 将 运行 该 代码 ， 自 动 生成 月 销售 份额 分 析 报 告 演示 文稿 。 具 体操 作 如 下 。 


步骤 01 ”选择 按钮 控件 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 在 “开发 工具 ”选项 卡 的 “控件 ”组 中 单 击 “ 插 入 ”按钮 ， 在 展开 的 列表 中 单 击 “ 按 钮 ( 窗 体 控件 ) ”图 标 ， 如 下 图 所 示 。 


寺 点 | 具 Power Pivot 许 我 全 直 要 做 什么 


转 一 导入 
儒 扩 展 包 国 ,导出 
局 1 刷新 数据 
单 控 XML 
其 国 四 自 国 @| 
[| Aa 自 回国 鳃 


| | Re 控件 


2018 年 上 于 年 各 二 \ 


3 月 份 | 4 月 份 | 5 月 份 


a 
| 


步骤 02 绘制 按钮 控件 并 指定 宏 。 在 工作 表 的 适当 位 置 绘 制 按钮 控件 ， 在 弹出 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 月 销售 份额 分 析 报 告 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


月 销 告 份 窜 分 析 报 语 
月 销 千 份 赢 分 析 报告 入 
(并 


步骤 03 ”运行 “月 销售 份额 分 析 报 告 ()” 过 程 代码 。 返 回 工 作 表 ， 将 按钮 控件 重 命 名 为 “自动 生成 月 销售 份额 分 析 演 示 文 稿 ”， 激 活 并 单 击 该 按钮 ， 即 可 运行 “月 销售 份额 分 析 报 告 0” 过 程 代码 ， 如 下 
图 所 示 。 


D 上 F G 


2018 年 上 半年 各 产品 的 销售 表 


EEC 


自动 生成 月 销售 份额 分 析 
ee 


59. 21 
60. 23 


步骤 04 ”保存 演示 文稿 。 弹 出 “另存 为 ”对 话 框 ， 在 地 址 栏 中 选择 演示 文稿 的 保存 路 径 ， 在 “文件 名 ”文本 框 中 输入 “2018 年 上 半年 月 销售 份额 分 析 ”， 单 击 “ 保 存 ” 按 钮 ， 如 下 图 所 示 。 


国 另存 为 
和 > 沾 网 * 第 13 章 ; 最 终 文 件 


组 如 ™ 新 建文 件 卖 
国 点 面 和 修改 日 期 
访 本 地 碰 盘 (C:) 
吉 软件 (E; 
二 备份 (F:) 
1 Excel VBA 高 区 


这 有 与 搜索 条 件 区 机 的 项 。 


并 工作 县 统计 
芒 网 阁 
文件 名 (N): | 2018 年 上 半年 月 销售 份额 分 
保存 类 型 (T): 幻灯 片 (*.pptx) 
作者 : XX 


步骤 05 成 功 生成 演示 文稿 提示 。 程 序 执行 完毕 后 ， 在 Excel 工 作 表 中 会 弹出 提示 框 ， 提 示 用 户 成 功 生 成 演示 文稿 ， 单 击 “ 确 定 ”按钮 即 可 ， 如 下 图 所 示 。 


Microsoft Excel 


LG KG70(Shine), 63 
LG KG278, 61.23, 7%_ 


XX 


诺基亚 N8600 Luna, 58.32, 6% 
| 


=E SOGH-E208, 60 23, 6% 


斯 托 办 和 拉 ROKR 26 61.23 6% 


荐 托 史 范 RAZR2 V8 63 


步骤 06 ”查看 Excel 工 作 表 的 最 终 效 果 。 返 回 Excel 工 作 表 ， 可 以 看 到 程序 自动 根据 “产品 销售 表 ” 工 作 表 中 的 各 月 销售 数据 创建 了 月 销售 份额 分 析 图 ， 如 下 图 所 示 。 


目 司 圭 夺 疝 让 可 sm - Eeel 


辣 国 布 周 当世 Er 疼 阅 视图 开 点 工交 Pomer Pivct 
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医 兢 样 元 


大 马 | 三 所 写 


图 到 工具 
设计 | 梧 二 


Ra 


口 并 
xx EE 


站 言 诉 儿 里 卫 要 做 什 必 .. 


本 由 辆 


过 瑞 攻 全权 固 春 


J rm 
1 lL 


6 月 曾 销 售 从 额 分 析 国 


证 苇 于 i Luna 二 .2 5 而 


LS ETA 1 I TH 


=B EN FT 1 FE 


尿 并 可 拉 FROME 75 6424. 


半月 忆 培 宇 刘 下 证 衣 辣 有 月 好 镍 生性 重症 斩 梧 


步骤 07 ”查看 生成 的 演示 文稿 效果 。 在 目标 文件 夹 中 双击 “2018 年 上 半年 月 销售 份额 分 析 .pptx” 演示 文稿 


__ 二 天 下 HE 四 五 7 
请 盐 豆 H33, F315, 全 


面 失守 莹 RM 的 二 


员 ， 
6 日 共 和 钙 尘 从 散人 好 析 村 | 产品 的 和 些 楷 ,下 


， 在 打开 的 演示 文稿 中 选中 第 1 张 幻 灯 片 ， 可 以 看 到 程序 自动 创建 的 内 容 ， 如 下 图 所 示 。 


写 测 训 灯 片 太 下 


2018 年 上 半年 各 产品 的 销售 从 


步骤 08 查看 第 2 张 幻灯 片 的 效果 。 选 中 第 2 张 幻灯 片 ， 该 幻灯 片上 的 图 表 即 是 程序 自动 根据 “产品 销售 表 ” 中 1 月 份 各 产品 销售 额 创建 的 三 维 饼 图 ， 如 下 图 所 示 。 


2015 宇 上 半年 月 情 瞄 他 窟 他 后 ,ppts - Poaerpoint 
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出 怠 居 巷 B25 VE, I 
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步骤 09 查看 第 3 张 幻灯 片 的 效果 。 选 中 第 3 张 幻灯 片 ， 该 幻灯 片上 的 图 表 即 是 程序 自动 根据 “产品 销售 表 ” 中 2 月 份 各 产品 销售 额 创建 的 三 维 饼 图 ， 如 右 图 所 示 。 


区 后 EEts - PowwerFicarmt 


Tf 尖 T 同 。 褒 


2 月 仍 刘 月 雪 神 个 机 图 


沁 吉 于 0 LT TEL PR 


5 7 可 至 辽 轩 入 后 RS WE, S212 2 


中 四 【市 国 / 


第 14 草 ”企业 固定 资产 管理 


固定 资产 是 指 同 时 具有 以 下 特征 的 有 形 资产 : 为 生产 商品 、 提 供 劳 务 、 出 租 或 经 营 管理 而 持 有 ;使 用 年 限 须 超过 1 年 ;单位 价值 较 高 。 企 业 的 固定 资产 是 企业 运营 的 物质 基础 和 必 备 条 件 ， 需 要 进行 科学 
的 管理 。 本 章 将 利用 Excel VBA 制 作 一 个 简单 的 固定 资产 管理 系统 ， 该 系统 能 增加 和 修改 固定 资产 记录 ， 并 能 创建 并 打印 固定 资产 卡片 。 


14.1 快速 增加 固定 质 产 记录 


固定 资产 记录 的 字段 项 目 通常 较 多 ， 如 果 直 接 在 Excel 工 作 表 中 输入 ， 容 易 出 错 。 本 节 将 设计 一 个 VBA 用 户 窗 体 ， 为 用 户 提供 一 个 较 每 适 的 数据 输入 界面 ， 以 帮助 减少 输入 错误 。 该 界面 除了 提供 输入 功 
能 ， 还 提供 简单 而 实用 的 记录 浏览 功能 ， 可 快捷 地 跳 转 至 上 一 条 、 下 一 条 、 最 前 一 条 、 最 后 一 条 记录 。 


扫 码 看 视频 


中 


上: 实例 文件 \ 第 14 章 \ 原 始 文 件 \ 固 定 资产 管理 系统 .xlsx 


: 实例 文件 \ 第 14 章 \ 最 终 文 件 \ 固 定 资产 管理 系统 slsm 


本 小 节 将 设计 一 个 “增加 资产 记录 ”用 户 窗 体 ， 作 为 用 户 输入 固定 资产 数据 的 界面 。 具 体操 作 如 下 。 


打开 原始 文件 。 打 开 原 始 文件 ， 可 看 到 在 Sheet1 工 作 表 中 已 输入 固定 资产 的 各 项 目 字段 名 称 ， 还 创建 了 “资产 增加 ” “资产 变更 ” “打印 固 定 资产 卡 


”3 个 按钮 控件 


， 如 下 图 所 示 。 


打印 国定 资产 卡 
型 号 。 资产 类 别 ”增加 方式 “使 用 部 门 ”使 用 情况 


步骤 02 ”设计 “增加 资产 记录 ”用 户 窗 体 。 进 入 VBE 编 程 环境 ， 插 入 用 户 窗 体 ， 在 “属性 ”窗口 中 设置 “” (名 称 ) ”属性 为 AddRecord、Caption 属 性 为 “增加 资产 记录 ” ， 然 后 按照 下 页 表 添 加 控件 
并 设置 其 属性 ， 窗 体 效果 如 下 图 所 示 。 


序号 控件 名 称 属性 

全 信 拉 (名 称 ) 
本 

全 信访 [名称 

| optm | 取消 


14 命令 按钮 (名 称 ) 


值 


ns 上 一 条 
国人 0 下 一 条 
8 | 名 | com | ce 
9 | 标签 | Capton | cg 


co 
使 用 部 门 


Derpart 

20 复合 框 Et 和 , 
Style 2-fmStyleDropDownList 

Caption 使 用 情况 


ee (名 称 ) 
2-fmStyleDropDownList 
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保管 人 员 
26 复合 框 OD 
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EE 
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14.1.2 ”编写 控件 触发 事件 代码 


设计 好 “增加 资产 记录 ”用 户 窗 体 后 ， 本 小 节 接着 为 该 窗 体 中 的 控件 一 一 编写 对 应 的 触发 事件 代码 。 具 体操 作 如 下 。 


步骤 01 编写 初始 化 “增加 资产 记录 ”用 户 窗 体 的 过 程 。 继 续 上 一 小 节 的 操作 ， 双 击 窗 体 中 的 任意 控件 ， 打 开 “AddRecord (代码 ) ”窗口 ， 在 其 中 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 用 于 定义 数 
组 变量 ， 并 根据 实际 需要 为 AddWays0) 数 组 赋值 。 


值 。 


Tnitiolize 
声明 公共 变 童 rowN1 存 情 电 示 的 工作 表 行 数 


Publlc rowNl] is Integer 
梓 站 化 增加 贫 广 记录 商情 
Private Sub UserFornm InitializeO 
声明 数组 变量 存 悄 各 下 拉 列 表 的 值 
Dim AddWays (3) hs Strine 
Dim DepTs (4) As String 
Dim Uses (2) As Strine 
A BRenY(4) hs String 
ZWS(2) hs Strin 
为 井 方式 下 捞 到 村 
AddWays (0) : 
AddWays (1) 
AddWays 0&2) 
AddYWays (3) 


| | 
I | | 


“站 人 
提 捐 灶 \ 投 资 
租用 ” 


步骤 02 编写 代码 为 数组 变量 赋值 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代 码 是 Initialize0 过 程 的 第 2 部 分 代码 ， 用 于 为 DepTs0、Uses0、BRenY0 这 3 个 数组 赋 


ns 
DepTls (1, 
Depls\e 
ef 
DepTs (4) 


为 使 用 情况 


Uses (0) = “3 
Uses(1) = “使 
Uses (2) 

为 保 客人 员 
BRenY (0) = “号 撒 
BRenY (1) = : 
BRenY (2) 
BRenY(3) =“ 视 = 
BRenY (4) = “fh 


步骤 03 ”编写 代码 将 数组 的 值 赋 给 相应 的 复合 框 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 Initialize0 过 程 的 第 3 部 分 代码 ， 用 于 为 ZJWs( 数 组 赋值 ， 并 将 数组 的 
值 赋 给 相应 的 复合 框 ， 作 为 下 拉 列 表 清 单 。 


ZJWS(0 =“、 法 
ZS Cl “年 新 上 让 ;十 | 
WS(2) = ” 会 额 递 减法 
"将 数 乡 值 赋 络 A 相应 的 复合 栓 
Addwayl.List = eg 
Addwavyl.ListIndex = 


Depart.List = DepTs 
Depart. ListIndex = 放 
Usinz.List = Uses 
Usine. ListIndex = 0 
Janyame. List = BRenY 
a ee = 0 
heluWay.List = ZIWS 
zhe]LUuUWay.LLstIndex = 0 


步骤 04 ”编写 代码 为 日 期 文本 框 赋 值 。 在 代码 窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 Initialize() 过 程 的 第 4 部 分 代码 ， 主 要 使 用 Format() 遂 数 为 文本 框 InDate、UseDate 和 RecordDate 赋 初 
值 ， 并 设置 其 显示 格式 。 


" 设 首 InDate 文 本 框 的 显示 文本 及 文本 格式 


InDate. Text = Format (Date, "yyyy—mm-—dd’) 
' 设置 UseDate 文 本 框 的 显示 文本 及 本 格式 
UseDate. Text = Format (Date, 尺 提 区 Ti 一 ad ) 


设置 RecordDate 文 本 框 的 显示 文本 及 文本 格式 


RecordDate. Text = Format (Date, dd 
介 寺 值 


"再 明 变 主人 存 情 芷 雍 悚 中 和 输 六 的 数 合 、 
Dim Yuanzhl As Sinele 
Din TIngzhll As Sinele 
Dim LelTI AS Sinzle 
Dim Nums Ms Sinele 
Dim Pricel hs Sinele 


知识 链接 ”设置 字符 串 的 显示 格式 
在 Excel VBA 中 ， 若 要 设置 字符 串 的 显示 格式 ， 如 设置 日 期 型 格式 、 文 本 格式 、 数 值 格 式 等 ， 可 使 用 Format0 函数 来 实现 。 
重点 语法 与 代码 剖析 : Format() 函 数 的 用 法 


Fotmat0 函数 用 于 返回 一 个 字符 串 ， 该 字符 串 是 根据 格式 表达 式 中 的 指令 来 格式 化 的 。 其 语法 格式 为 : Format (exptression[，fotmat[，fitstdayofwweek[，fitstweekofyearl]) 。 其 中 ，expression 是 必需 参数 ， 用 
于 指定 任何 有 效 的 字符 串 表 达 式 ; format 是 可 选 参 数 ， 用 于 表示 有 效 的 命名 表达 式 或 用 户 自 定义 的 格式 表达 式 ; fitstdayofweek 是 可 选 参数 ， 是 一 个 用 于 表示 一 个 星期 的 第 1 天 的 常数 ; fitstweekofyeat 是 可 选 参 
数 ， 是 一 个 用 于 表示 一 年 中 的 第 1 周 的 常数 。 


注意 : 如 果 Calendat 属 性 设置 为 Gregorian， 并 且 format 指 定 了 日 期 格式 ， 那 么 提供 的 expression 必 须 是 Gregorian。 此 时 format 表 达 式 的 意义 没有 改变。 如 果 Calendar 属 性 设置 为 Hijfi， 则 提供 的 expression 必 须 
是 Hijni。 此 时 所 有 的 日 期 格式 符号 (如 dddd、mmmm、yyyy) 有 相同 的 意义 ， 这 些 意义 只 应 用 于 Hijfi 日 历 。 格 式 符号 保持 英文 ， 用 于 文本 显示 的 符号 (如 AM 和 PM) 显示 与 该 符号 有 关 的 字符 串 (英文 或 阿拉 
伯 数 字 ) 。 当 Calendat 属 性 设置 为 Hijfi 时， 一 些 符 号 的 范围 会 改变 。 


步骤 05 编写 代码 计算 固定 资产 的 原 值 、 折 旧 额 和 净值 。 在 代码 窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 计算 固定 资产 的 原 值 、 囚 计 折旧 额 和 资产 净值 。 


人 OO 


Nums = CInt (Numl. Yalue) 

Pricel = CInt'(Price,. Value) 
Canlvy = CInt'(Ratel. Value;y / 100 
Yearsl = CInt'(Years. Value) 


' 使 用 公式 计算 资产 原 值 


yuanzhi : = Nuns * Price 

出 用 目下 和 所 LeiJi hej up 0 有 本 
LelJ1l = 和 anzhi) 

正人 保科- 娄 放羊 
Tinezhil = yuanzhi -- Lei]i 


步骤 06 编写 代码 将 计算 结果 显示 在 用 户 窗 体 中 。 在 代码 窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 将 计算 结果 显示 在 用 户 窗 体 中 ， 并 设置 复 选 框 初始 值 。 


Rs BBalancel.、 ee 
"和 Tinezhi 标 签 的 Canti on 属性 _ 
Balancel. Caption = CStriyuanzhi) & 7 

A Caption = CStriLeiTi) & 
让 时 时 i， Caption = CSt SS 有 zhil) 8 元 


Fuxuanl 和 Fuxuan2 复 选 框 的 默认 值 


Fuxuanl. Value = False 
Fuxuan2. Value = False 
lt Fuxuan2. Value = False Then 
' 设 首 FLNumber 广 本 框 为 禁用 状态 
PLNumber. Enabled = False 
End I+i 
End Sub 


步骤 07 编写 改变 下 拉 列 表 时 自动 执行 的 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 在 用 户 更 改 “ 使 用 部 门 ”“ 增 加 方式 ” “使 用 情况 ”下 拉 列 表 时 ， 将 其 
值 赋 给 相应 的 变量 。 


人 Ts 一 
Private Sub Daa Glare 

Din Sphp hs Strine 

Sphp = Depart. Yalue 
End Sub 


Private Sub Addwayl Chanzel) 
Dimn Add¥W Ais Strine 
Add¥ = Addwayl. Value 

_End Sub 

Private Sub Usine Changel) 
Din Usedl As Strine 
Usedl = Usineg. Yalue 

End Sub 


步骤 08 编写 改变 “保管 人 员 ” 和 “ 折 | 晶 方法 ”下 拉 列 表 时 自动 执行 的 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 在 用 户 选择 保管 人 员 和 折旧 方法 时 ， 自 动 
将 复合 框 的 值 赋 给 相应 的 变量 。 


Zhe ja 时 ay 


Private Sub ManNamne Chaneetl) 
D1in Nanel As Strine 
Namel = ManNanme. Value 

End sub 

Private Sub zhejiuyay ChaneeO 
Dim zhejiul ts Strine 
zhejiul = ZhejiuWay. Yalue 

End Sub 


步骤 09 ” 自 定 义 LeiJiZhejiuE() 函 数 计算 累计 折旧 额 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 左 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 定义 存储 净 残 值 率 、 使 用 年 限 、 年 折旧 率 及 月 折旧 额 的 变 


= 
里。 


(通用 ) 
计算 条 计 折 旧 额 站 目 Let] iZhejiuE 〇 的 代码 


Function LeiJizh jiuE(a As Sinele) As Sinele 


育 明 变量 窑 储 兆 强 慎 率 及 预计 使 用 年 限 
Dim Canlvy hs Single 
Din Yearsl] hs Intege 


获取 净 减 值 幸 与 预计 信 用 年 限 
Canly = ee Wr i: 100 
sa = CInt'(YTears, Val 加 


声明 变 量 在 神谷 提 简 务 汉 让 强 出 的 年 折旧 率 及 月 折旧 客 
Din Nrate Ls Single 
Dim Drate hs Single 
Dim Srate hs Single 
Dim MMoneys As Single 


步骤 10 ”编写 代码 计算 累计 折旧 额 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 右 图 所 示 的 代码 段 ， 该 段 代码 主要 使 用 Select Case 语 句 判断 折旧 方法 ， 然 后 根据 折旧 方法 利用 不 同 的 计算 公式 计 
算出 相应 的 累计 折旧 额 。 


' 使 用 Select Case 六 
Select Case ZhejiuWay. Value 
Case “平均 年 限 法 ” 
Nrate = (1 - Canly) / Yearsl 
Moneys = (NHrate / 12) 本 &a 
Case “年 数 旦 和 法 ” 
Srate = {Tearsl * 365 — (Date — CDate _ 
(UseDate. Value))) / (Yearsl +* 365) 
NMoneys = (a 一 有 本 Canlv) * Srate 


Case “ 双 倍 ; 全 


Drate : 
HMoneys 
End Select 
”计算 录 计 折旧 额 
LeiTJizhejiuE = (Date - CDate(UseDate. Yalue)) _ 
站 ‘MMoneys / 12) 


生地 
/ ee 
Drat 


End Funct1lon 


步骤 11 编写 代码 在 修改 文本 框 时 自动 更 新 数据 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 在 用 户 修改 “数量 ” “单价 ” 


自动 更 新 数据 。 


“ 净 残 值 率 ” “使 用 年 限 ”文本 框 时 ， 


二 局 | XxX- 


rt 2 一 一 


Private Sub Nunl Chanegel) 
UpDateList 

End sub cr 
中 里 必 六 恒 时 目 动 更 新 姓 捧 

Private Sub Price Change © 
UpDateList 

End sub _ 

" 收 孜 寺 由 悟 凌 菇 季 尾 的 垣 时 目 z 

Private Sub Ratel_ChangegO 
UpDateL1ist 

End Sub 
网 必 预 计 司 用 年 限 葡 本 杠 的 人 十 时 局 

Priyate sub Years Ms 
UpDateList 

End Sub 


步骤 12 ” 自 定 义 更 新 数据 函数 UpDateList0。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 UpDateList0 函 数 的 第 1 部 分 代码 ， 用 于 定义 变量 ， 存 储 相应 的 文本 框 值 。 


Fi 


unction UpDateList0) 
' 再 明 变 存 鱼 让 虑 的 数量 、 单价 、 学 殊 值 这 
Din ey hs Single 
Dim Jingzhil As Singele 
Dim LelTJI As Singele 
Dim Nums As Single 
Dim Pricel hs Single 
Dim Canlvy As Sinele 
Dim Yearsl As Single 
Nums = CInt'(Nunl. Value) 
Pricel = CInt ‘(Price. Value) 
Canly = CInt (Ratel. Value)j / 100 
Yearsl = CInt'(Years. Value) 


UpDateL1i st 


“用 于 更 新 的 目下 多 凶 数 UpDateList 的 代码 


步骤 13 ”编写 代码 重新 计算 资产 原 值 、 累 计 折 旧 额 和 资产 净值 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 重新 计算 资产 原 值 、 累 计 折旧 额 和 资产 净值 ， 并 将 其 显 


示 在 用 户 窗 体 中 。 


步骤 14 编写 更 改 “ 批 量 ” 复 选 框 时 自动 执行 的 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 设置 当 “ 批 量 ” 复 选 框 的 值 为 True 时 ， 


UpDateL1i st 


计算 资产 原 值 


YLanzhl = Nums 丰 Pricel 


/调用 目 定 义 乓 数 LeiJiZzhejiuE 0 计算 示 计 折旧 额 


Pa i = LeiTiZhejiuE (yuanzhi) 
资 关 光合 
he np = yuanzhi — 


7 加 可 下 的 寺 疡 拘 笑 一 林 计 算 着 宁 和 资产 净值 
' 赋 给 相应 标签 的 Caption 上 属性 _, 
Balancel. Caption = CStr (yuanzhi) 让 “元 
The jiuE. Caption = CStrtLeiTi 让 “元 
Jingzhi.Caption = CSstr(Jingzhil) 8 
End Function 


“连续 增加 ” 复 选 框 的 值 


也 为 True， 且 其 后 的 文本 框 为 可 用 状态 ; 反之 ， 则 该 文本 框 为 不 可 用 状态 。 


在 更 改 批量 复 选 框 内 容 时 自动 执行 了 
Private Sub Fuxuan2 Click) 
If Fuxuan2. Yalue = True Then 
: 设 忆 和 连 漠 曾 加 复 选 答 的 值 为 True 
Fuxuanl.V Value = T 
路 岂 Liub 交 本 得 可 用 状态 
PLNumber. Enabled = True 
Else : 
" 设 孟 PLNumber 文 本 框 为 禁用 状态 
PLNumber. Enabled = False 
End I 
End Sub 


步骤 15 编写 “保存 ”按钮 对 应 的 过 程 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 声明 变量 ， 存 储 Sheet1 工 作 表 和 PLNumber 文 本 框 的 值 。 


医 一 二 | 口号 


i 一 网 


Private sub Savel Click0) 
' 声明 变量 sht 存 储 Sheetl 工 作 表 
Dim Sht hs Worksheet 
Set Sht = Worksheets( ”Sheetl”) 
yop 
有 册 总 
a = PLNunber. Value 


声明 变 重 1 存 悄 箱 环 闪 数 


人 hs Integer 


声明 变量 rowlun 存 依 工作 表 的 行 数 


Dim TowNunm is Integer 


步骤 16 编写 代码 将 用 户 窗 体 中 的 内 容 写 入 相应 的 单元 格 中 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 主要 用 于 将 用 户 窗 体 中 的 内 容 写 入 工作 表 末尾 的 空白 行 中 。 


世 二 司 | 目 口 司 | 一 > 


,使用 Do…Loop Until 循 环 将 窗 体内 容 写 入 相应 单元 格 到 


…， 获取 工作 表 的 行 数 


rowNunm = Sht,. Rangel’ A3’).CurrentRegion,. Rows. Count | 
rowlun = rowNum + 2 


es 


Sht. Cells (rovwNun 
Sht. Cells (rowNunm 
Sht. Cel ls (rowlHun 
Sht. Cells (rowNum 
Sht. Cells (rowNum 
Sht. Cells (rowiun 
Sht. Cells (rowNun 
Sht. Cells (rovwNun 
Sht. Cells (rowNun 
Sht. Cells (rowNun 


步骤 17 编写 代码 判断 写 入 完成 后 是 否 关 闭 用 户 窗 体 。 在 “AddRecord (代码 ) ” 
是 否 连 续 增加 。 如 果 其 值 为 False， 则 关闭 该 用 户 窗 体 。 


+ Number. Yalue 
Namel. Yalue 
Norms. Yalue 
Typel. Yalue 
Addwayl. Value 
Depart. Yalue 
Using. Yalue 
Address. Yalue 
’ NanName. Yalue 
10 = InDate. Value 


PE 二 >| 了 


es ee es hb ps 


二 十 十 十 十 十 十 十 十 


窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 将 用 户 窗 体 中 的 内 容 写 入 相应 单元 格 的 后 半 部 分 ， 输 入 完成 后 判断 


Sht. Cells (rowNunm 
Sht. Cells (rowNun 
Sht. Cells (rowNun 
Sht. Cells (rowNun 
Sht. Cells (rowNun 
Sht. Cells (rowNun 
Sht. Cells (rowlNum 
Sht. Cells (rowNun 
Sht. Cells (rowNun 
Sht. Cells (rowNum 
Sht. Cells (rowNunm 
sht. Cells (rowNun 
1=1+1 


Until] 1 
"关连 晓 油 加 复 进 栓 的 入 如 果 为 假 则 关闭 用 户 窗 干 
If Fuxuanl.Value = False Then 
Ne. Hide 
End I+ 
End Sub 


< 


Numl. Value 

Unit. Value 
Price. Yalue 
Balancel. Caption 
zhe]1iuE. Capt1lon 
JTinezhi. Caption 
Ratel. Yalue 
zhejluWay. Yalue 
UseDate,. Yalue 
Years. Yalue 
RecordDate, Value 
VrtNanme. Yalue 


11) 
12) 
13) 
14) 
15) 
16) 
17) 
18) 
19) 
20) 
21) 
22) 


en a a 5 5 


a 


dl 


十 十 十 十 十 十 十 十 十 十 十 十 
上 下 上 下 上 
| 


| 


步骤 18 编写 “取消 ”等 按钮 对 应 的 事件 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 设置 “取消 ”“ 最 后 ” “最 前 ”按钮 对 应 的 事件 过 程 。 其 中 ， “最 
后 ”“ 最 前 ”按钮 的 事件 过 程 调 用 了 自 定义 的 显示 记录 过 程 ShowRecord()。 


和 | 天 证 


i 按钮 对 应 TS 和 


Private Sub Cancel Clickt) 
' 天 闭 窗 体 
Ne. Hide 
End Sb 
家 对 应 的 各 件 过 程 代 枸 
i a pndone _Click ©) 
rowNl = Yorksheets'(”Sheetl’).Ranee(”A3”) _ 
全 Rows. Count 
rowNl = rowll + 
备用 自 定 久 区 数 shcwRecord0 来 完 示 记录 
ShowRecord (rowH1) 
End sub z 
"最 肥 按 和 宙 对 应 有 四 事件 过 程 代码 
i sve Firet Click') 


8 佐 窗 体 中 显示 工作 表 内 容 
ShowRecord (rowN1y) 
End Sub 


步骤 19 编写 “下 一 条 ”按钮 对 应 的 事件 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 中 首先 使 用 If 语 句 为 rowN1 变 量 赋 初 值 ， 然 后 获取 Sheet1 工 作 表 的 行 数 。 


下 一 条 按钮 对 应 的 事件 过 程 代 三 
Private Sub NextOne_Click0© 
" 为 rowH1 变 芋 周 初 值 
It rowNl < 3 Then 
rowNl = 3 
End It _ 
“当前 行 亏 加 1 ， 即 下 称 一 条 记录 


TOVNL = TowH1L + 1 有 

"声明 变 童 存储 工作 表 Sheetl 中 的 行 数 

Dim rowNun 点 5 ImtegeT 

rowNunm = Worksheets( Sheetl’).Ranee( a3S )。 _ 
CurFentReglLon. Rows.Count + 2 


步骤 20 ”编写 代码 判断 是 显示 下 一 条 记录 还 是 显示 空白 记录 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 使 用 If 语 句 判 断 当前 显示 的 固定 资产 记录 的 行 号 。 如 果 当 前 行 
号 小 于 rowN1 变 量 ， 则 调用 ShowRecord(0 过 程 ; 反之 ,调用 ShowSpace() 过 程 。 


"如果 rowH1 小 于 rowNun， 则 调用 ShowRecord 〇 的 数 
ShowRecord (rowN1) 


Else 
"否则 调用 ShowSpace 站 国 数 
ShowSpace 

End I+ 


End Sub 


步骤 21 编写 “上 一 条 ”按钮 对 应 的 事件 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 判断 当前 行 号 是 否 小 于 第 1 条 记录 的 行 号 。 如 果 是 ， 则 设置 [owN1 变 量 
的 值 为 第 1 条 记录 的 行 号 ， 然 后 调用 ShowRecord() 过 程 。 


是 == 导 | 和 品 生 | Xx 


ee 条 按钮 对 应 一 一 
Private Sub Topone ClickO 
If rowNl > 4 Then 
rowNl] = rowNl 一 1 
Else 
rowNl = 4 
End I 
ShowRecord (rowlHl) 
End Sub 


步骤 22 编写 ShowRecord0 过 程 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 将 指定 行 的 固定 资产 记录 显示 在 “增加 资产 记录 ”用 户 窗 体 中 的 相应 位 置 。 


"在 窗 体 中 显示 记录 内 容 的 过 程 代 码 本 
Sub ShowRecordtb hs Integer) 

Dim Sht is Worksheet 

Set Sht = me Sheet1”) 

Number. Text = Sht.Cells(b, 1) 

Namel. Yalue = Sht. cell tb 2) 

Norms. Yalue = Sht.Cells (b, 3) 

Typel. Yalue = Sht.Cells'(b, 4) 


Addwayl. Yalue = Sht. Cells (b, 5) 
Depart.Value = Sht.Cells(b, 6) 
Usine. Yalue = Sht.Cells(b, 7) 


hddress. Yalue = Sht. Cells (b, 8) 
ManNane. Yalue = Sht.Cells (b, %) 
InDate. Value = Sht.Cells'(b, 10) 


步骤 23 编写 ShowRecord0 过 程 的 后 半 部 分 代码 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 将 指定 行 的 内 容 显 示 在 用 户 窗 体 中 的 后 半 部 分 代码 。 


Nunml.Value = Sht.Cells(b, ET 
Unit.Value = Sht.Cells (b, 12) 
Price. Value = Sht.Cells'(b, 13) 
Balancel. Caption = Sht.Cells(b, 14 
ZhejiuE. Caption = Sht.Cells(b, 15) 
Tinezhi.Caption = Sht.Cells(b, 16) 
Ratel. Yalue = Sht.Cells tb, 17) 
Zhe jiuWay. Value = sht. Cells (b, 18) 
UseDate,. Value = Sht.Cells'(b, 19% 
Years. Yalue = Sht.Cells(b, 20) 
RecordDate,. Value = Sht. Cells (b, 21) 
WrtName. Yalue = Sht.Cells (b, 22) 
End Sub 


步 又 24 ” 自 定义 ShowSpace0 过 程 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 用 于 在 用 户 窗 体 中 设置 各 控件 的 初始 值 。 


i 才 程 代码 
sub ShowSpace0) 
NHumber. Text = 
Namel. Text = 
Norns. Yalue 
Typel. Value 


条 而 


地 疗 


Addwayl. Yalue = 
Depart,. Value = 
Usine. Value = 
iddress. Value 
NanName. Yalue 
InDate, Yalue = Date 
Nunml. Yalue = “站 


步骤 25 编写 代码 继续 设置 窗 体 控件 初始 值 。 在 “AddRecord (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 ShowSpace0 过 程 的 后 半 部 分 代码 ， 用 于 为 控件 设置 初始 值 。 


Numl. Yalue = “0” 
Unit.Value =“” 
Price.Value = “0” 
Balancel.Caption = “0 
zhe]LuE.Captlon = 
Jingzhi.Caption = 


而 


Ratel.Value = “O° 
hejliuWay. Yalue = 
UseDate. Value = Date 
Years. Value = “1” 
RecordDate. Value = Date 
VrtName. Yalue = 

End Sub 


党 遍 


步骤 26 编写 调用 用 户 窗 体 的 过 程 。 插 入 “模块 1 ， 在 打开 的 “模块 1 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 并 保存 ， 该 段 代 码 用 于 调用 AddRecord 用 户 窗 体 。 


( 瑞 用 ) ~ | | 资产 其 加 
' 调用 Addrecord 用 户 窗 体 的 过 程 代 码 
sub 资产 增加 曲 
Dim myForm AS AddRecord 

Set myForm = New AddRecord 
myF ornm. Show 


Set myForm = Nothine 
End Sub 


14.1.3 ”运行 代码 增加 固定 资产 记录 


完成 窗 体 设 计 和 代码 编写 后 ， 本 小 节 将 运行 “增加 资产 记录 ”用 户 窗 体 来 快速 添加 固定 资产 记录 。 具 体操 作 如 下 。 


步骤 01 打开 “指定 宏 ” 对 话 框 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 右 击 “ 资 产 增 加 ”按钮 ， 在 弹出 的 快捷 菜单 中 单 击 “ 指 定 宏 ” ， 如 下 图 所 示 。 


PY | 


i 


步骤 02 ”指定 宏 。 在 打开 的 “指定 宏 ” 对 话 框 的 “ 宏 名 ”列表 框 中 单 击 “ 资 产 增 加 ”选项 ， 如 下 图 所 示 ， 然 后 单 击 “ 确 定 ”按钮 。 


步骤 03 运行 “资产 增加 0” 过 程 代码 。 返 回 工 作 表 ， 单 击 “ 资 产 增 加 ”按钮 ， 如 下 图 所 示 ， 即 可 运行 “资产 增加 0” 过 程 代 码 。 


wl (Hm 


人 员 ” 


nrolrmaAsgnn | 


步骤 04 ”查看 “增加 资产 记录 ”对 话 框 的 效果 。 弹 出 “增加 资产 记录 ”对 话 框 ， 如 下 图 所 示 ， 可 看 到 各 控件 的 初始 值 。 


未 尾 用 存放 地 点 ] 保管 人 员 | Es - 


启用 日 期 | 2016-01-06 


入 账 日 期 | 2018-01-08 


净 残 值 率 %| 0 预计 使 用 年 限 | ! ”累计 折旧 额 0 元 


折旧 方法 


数量 |0 单位 | 单价 |。 资产 原 值 0 元 


平均 年 限 法 


登记 日 期 | 2018-01-0 引 登记 人 员 六 广 六 一 


步骤 05 ”输入 第 1 条 资产 记录 的 前 半 部 分 。 在 “增加 资产 记录 ”对 话 框 中 分 别 添 加 “资产 编号 
等 信息 ， 如 下 图 所 示 。 


“资产 名 称 ” 


“规格 型 号 ” 


“所 属 类 另 


由 


“增加 方式 ” 


“使 用 部 门 ” 


“使 用 情况 ” “存放 地 点 ” 


“ 保 


管 


| 
’ 
D 


-00l 年 | 电脑 规格 型 号 | 联想 


类 别 | 电脑 网 络 增加 方式 | 购 入 | 使 用 部 门 | 财务 部 -| 
使 用 中 | 存放 地 点 | 办 公 室 保管 人 员 | 圭 否 -| 


入 账 日 期 | 2018-01-08 局 用 日 期 | 2018-01-08 折旧 方法 | 平均 年 限 法 


数量 | 单位 | 单 价 | 0 资产 原 值 0 元 


净 残 值 率 %| 0 ” ”预计 使 用 年 限 | ! 累计 折旧 额 0 元 资产 净值 0 元 
Em 


2018-01-08 


步骤 06 输入 第 1 条 资产 记录 的 后 半 部 分 。 继 续 在 该 对 话 框 中 添加 “入 账 日 期 ” “启用 日 期 ”“ 折 | 旧 方 法 ” “数量 ”“ 单 位” “单价 ”“ 净 残 值 率 %” “预计 使 用 年 限 ” “登记 日 期 ”等 信息 ， 如 下 图 所 


资产 给 号 | M001 资产 名 称 


所 属 类 列 | 电脑 和 第 增加 方式 


2018-01-08 启用 日 期 | 


登记 日 期 | 2018-01-06 登记 A 员 | 厂 连 续 赠 加 广 摔 县 — 


步骤 07 保存 记 录 。 继 续 在 该 对 话 框 的 “登记 人 人员” 文本 框 中 输入 “ 刘 沙 ”， 并 勾 选 “ 连 续 增 加 ” 复 选 框 ， 单 击 “ 保 存 ” 按 钮 ， 如 下 图 所 示 。 


资产 编 号 | N001 资产 名 称 | 电脑 规格 型 号 联想 
所 属 类 刑 电脑 网 结 增加 方式 | 购 信 "| 使 用 部 门 | 财务 部 
nt | 使 用 中 "| 存放 地 点 ] 办 公 室 保管 人 员 | 赫哲 - 


018-01-08 


启用 日 期 属 2018-01-08 折旧 方法 | 年 数 总 
13500 元 
-35858.21 元 


2018-01-08 


步骤 08 查看 保存 记录 后 的 效果 。 此 时 将 保存 输入 的 固定 资产 记录 并 且 不 关闭 “增加 资产 记录 ”对 话 框 ， 得 到 如 下 图 所 示 的 效果 。 


CD 一] DC 下 | 儿 [ls 


编号 名 
EE D1 | 电脑 


资产 增加 


sheatl] Sheet2 


联想 电 应 网 络 购 六 财务 章 | 丁 用 中 钞 公 室 


次 产 芝 更 打印 国定 资产 卡 | 


型 号 资产 类 别 ”增加 方式 使 用 部 门 ”使 用 情况 存放 地 点 


2 


= 


资产 编号 | Mol ”资产 名 称 | 电脑 规 梢 型 号 | 联想 

所 属 类 别 | 电 及 网络 。 ”增加 方式 | 购 入 "| 使用 部 门 | 财务 部 

使 用 情况 | 佳 有 中 “| 存放 地 点 | 四 人 宝 “保管 A 员 | 林 "| 
入 帐 日 期 | 2018-01-04 启用 日 期 | 2018-01-04 折旧 方法 | 年 痢 总 和 法 


数量 |: 单位 | 台 单 价 | 4500 资产 厚 值 135007 


净 残 值 率 % | 5 预计 使 用 年 限 5 办 计 折旧 敲 -33694.0 资产 学 值 47194.03 元 


登记 日 期 | 2018-01-08 。 ”登记 人 员 | 六 厅 连续 增加 厂 批量 | 


>heet3 + 器 


步骤 09 添加 下 一 条 记录 。 用 相同 的 方法 填写 下 一 条 固定 资 


产 记录 ， 义 选 “ 批 量 ” 复 选 框 ， 并 在 其 后 的 文本 框 中 输入 “2”， 单 击 “ 保 存 ”按钮 ， 如 下 图 所 示 。 


传真 机 规格 记号 松下 
通讯 工具 a 加 方式 | 购 入 "| 使 用 部 门 | 秘书 室 =| 


使 用 情况 | 悚 用 中 "| 存放 地 点 | 办 公 室 保管 人 名 | 卢 扬 - 


由 | 2018-01-04 启用 日 期 | 2018-01-04 
mE 单 位 | 台 单价 | a00 资产 原 值 16007 


%| 5 预计 使 用 年 限 | 5 ”累计 折旧 窜 116.1111 资产 净值 


登记 日 期 2018-01-08 登记 人 员 ES |” 连续 增加 人” 批量 | | 


步骤 10 ”查看 保存 后 的 效果 。 此 时 可 看 到 在 工作 表 中 添加 了 两 条 相同 的 固定 资产 记录 ， 如 下 图 所 示 。 


F 
打印 固定 资产 卡 
型 号 资产 类 别 ”增加 方式 使 用 部 门 全 清 可 存 族 地 训 保 
电话 网 阁 。 。 购 入 财务 部 办 公 起 


通讯 工具 网 具 秘书 室 合用 中 
通讯 工具 购 入 秘书 宣 使 用 中 


资产 岳 写 | M02 痪 产 名 称 | 传 友 机 
所 属 尖 市 | 通讯 工具 增加 方式 | 购 上 


月 情 况 | 使 用 中 。 | 存放 地 点 | 办 公 室 保管 人 员 | 胖 扬 - 


大 账 日 期 | 2016-01-04 启用 日 期 | 2018-01-04 折旧 方法 | 平均 年 限 法 


单 性 | 各 单 恒 | so0 资产 原 信 1600 元 


直率 % | 5 。 预计 使 用 年 限 | 5 。 容 计 析 介 额 116.1111 资产 兆 信 1483.889 元 


登记 日 期 | 2018-01-08 登记 人 员 


步骤 11 关闭 “增加 资产 记录 ”对 话 框 。 如 果 要 关闭 “增加 资产 记录 ”对 话 框 ， 则 单 击 “ 取 消 ” 按 钮 ， 如 下 图 所 示 。 


| 上 条 | 下 条 | a 


资产 编号 [002 资产 名 称 | 传真 机 规格 型 号 | 松下 
所 属 类 别 「 通讯 工具 增加 方式 | 网” | 使 用 部 门 | 秘书 宝 


| 使 用 中 "| 存放 地 点 | 办 公 室 保管 人 员 | 多 扬 


入 帐 日 期 | 2016-01-04 启用 日 期 | 2018-01-04 折旧 方法 | 平均 年 限 法 


数 量 2 单 位 | 台 单价 | so 资产 原 值 16007t 


净 残 值 率 % | 5 预计 使 用 年 限 | 5 ”累计 折旧 额 -65.4444 资产 净值 1665.444 元 


登记 日 期 | 2018-01-08 登记 人 员 ud Er lw 连续 增 } [w 批量 Em 


步骤 12 查看 单 击 “ 最 前 ” 后 的 效果 。 再 次 打开 “增加 资产 记录 ”对 话 框 ， 单 击 “ 最 前 ”按钮 ， 即 可 在 对 话 框 中 显示 第 1 条 记录 的 内 容 ， 如 下 图 所 示 。 


上 条 | 下 条 | 5 | 


资产 编号 | Mrool ”资产 名 称 | 电脑 规格 型 号 | 联想 
所 属 类 别 | 电脑 P 络 增加 方式 | 购 入 ”~| 使 用 部 门 | 财务 部 

更 用 情况 | 使 用 中 | 存放 地 点 | 办 公 室 保管 人 员 | 在 哲 

入 帐 日 期 | 20la/i/4 ”启用 日 期 | 2018/1/4 ”折旧 方法 | 年数 总 和 法 
= = 4500 资产 原 值 ”13500 元 


苇 值 率 %| 5 ”预计 使 用 年 限 | 5 。 累计 折旧 额 -33694.0 资产 净值 47194.03 元 


登记 日 期 | 2018/178 登记 人 员 六 已 


步骤 13 ”查看 单 击 “ 最 后 ”按钮 后 的 效果 。 在 “增加 资产 记录 ”对 话 框 中 单 击 “ 最 后 ”按钮 ， 即 可 在 对 话 框 中 显示 最 后 一 条 记录 的 内 容 ， 如 下 图 所 示 。 


资产 编号 | 1C002 资产 名 称 | 传真 机 ”规格 型 号 | 松下 
所 属 类 别 「 通讯 上 加 方式 「 网 入 | 使 用 部 门 三 入 忆 室 

吏 用 情 疡 | 保管 人 员 | 罗 扬 

入 帐 日 期 | zolBl 启用 日 期 | za 折旧 方法 | 平均 年 限 法 
数 量 I2 单 位 单 价 | ao 资产 原 值 1600 元 


净 残 值 率 % | 5 预计 使 用 年 限 | 5 ” 景 计 折旧 额 -65.4444 资产 净值 1665.444 元 


资产 编号 开 NI-002 资产 名 称 | 传真 机 规格 型 号 | 松下 
上 f | 网 A 了 使 用 部 门 | 秘书 室 
-| 存放 地 点 | 办 公 室 保管 人 员 | 罗 扬 "| 


入 帐 日 期 | 20187174 局 用 日 期 | 20187174 折旧 方法 | 平均 年 限 法 


数量 [2 单位 [| 台 单 价 | so 资产 原 值 ”1600 元 


净 残 值 率 % | 5 预计 使 用 年 RR | 5 累计 折旧 额 -65.4444 资产 净值 1665.4447L 


登记 日 期 | 2018/1/8 


步骤 15 ”查看 单 击 “ 下 一 条 ”按钮 后 的 效果 。 在 “增加 资产 记录 ”对 话 框 中 单 击 “ 下 一 条 ”按钮 ， 如 果 当 前 行 号 为 数据 的 末 行 ， 则 显示 空白 数据 ， 如 下 图 所 示 。 


资产 编号 | 资产 名 称 | 规格 2S| | 
所 属 类 别 | 增加 方式 | 购 和 | 使 用 部 门 | 人 事 部 
使 用 情况 | 未 使 用 | 存放 地 点 | 保管 人 员 | 2 扬 + 
入 账 日 期 | 2018-01-04 启用 日 期 | 2018-01-04 折旧 方法 「 平均 年 限 法 加 
数 量 = EE 0 元 


信 率 % 0 预计 使 用 年 限 | 了 累计 折旧 额 0 元 


资产 编号 | to03 ”资产 名 称 | 办 公 虚 。 ”规格 于 号 | 1.sr2 米 

所 属 类 别 | 办 公设 备 增加 方式 | 租用 ”| 使 用 部 门 Dm 
使 用 情况 | 使 有 中 | 存放 地 点 | 办 公 室 。 ”保管 人 员 | 刘 凡 

入 账 日 期 | 2018-01-04 。” ”启用 日 期 | 2018-01-04 。 ”折旧 方法 | 双 信 余 额 递 咸 法 
数量 |5 单位 | 线 单价 | !1500 资产 原 值 7500 元 


残 值 率 ? | 5 预计 使 用 年 限 | 10 累计 折旧 额 572 .9167 资产 净值 6927.083 元 


步骤 17 ”查看 保存 后 的 效果 。 此 时 可 将 对 话 框 中 的 数据 写 入 相应 的 单元 格 中 ， 且 关闭 该 对 话 框 ， 如 下 图 所 示 。 


视 产 变更 


资产 类 别 


电 掀 园 蕴 
通讯 工具 
通讯 工具 


办 公设 省 


打印 国定 资产 卡 


ee 


使 用 部 站 


型 号 
联想 
松下 
松下 


增加 方式 
[mE 
陶 具 
a 六 
租用 


使 用 情况 ”存放 地 点 


步骤 18 ”继续 输入 固定 资产 记录 。 利 用 相同 的 方法 ， 在 工作 表 中 继续 添加 如 下 图 所 示 的 固定 资产 记录 数据 。 


14.2 


一 般 企业 的 固定 资产 记录 很 多 ， 若 要 修改 某 一 条 记录 ， 通 常 


快速 更 改 指 定 固定 资产 记录 


已 LD 上 F bE 
| 资产 变更 | 打印 固定 资产 卡 
型 号 资产 类 别 ”增加 方式 ”使 用 部 门 ” 使 用 情况 
联想 电脑 网 阁 中 人 财务 部 使 用 中 
局 下 通讯 工具 中 人 秘书 室 使 用 中 
检 下 通讯 工具 中信 秘书 室 司 用 中 
TS 六 四 冯 设备 租用 二 部 健 用 中 
榨 下 逐 用 电 襄 史 六 秘书 宝 使 用 中 
梯 下 全 用 电 邵 风 A 秘书 至 使 用 中 
长 虹 下 用 电 邵 I 秘 世 至 使 用 中 
柯 瑚 30 祥 通 荆 乓 加 和 视 坟 车 使 用 中 
吉普 办 公设 备 。 ” 购 入 秘书 室 使 用 中 


需 先 通过 查找 功能 定位 记录 。 本 节 将 通 


过 VBA 用 户 窗 体 和 程序 代码 实现 快速 查找 、 修 改 指定 记录 的 功能 。 


要 码 看 视频 


he 


L 之 ia F: 实例 文件 \ 第 14 章 \ 原 始 文件 \ 固 定 资产 管理 系统 .xlsm 


:实例 文件 \ 第 14 章 \ 最 终 文件 \ 固 定 资产 管理 系统 1.xlsm 


本 小 节 将 设计 一 个 “快速 更 改 指定 记录 ”用 户 窗 体 ， 作 为 用 户 查 找 和 更 改 记 录 的 界面 。 具 体操 作 如 下 。 


| 打开 工作 短 。 打 开 原 始 文件 ， 可 看 到 在 Sheet1 工 作 表 中 已 存在 如 下 图 所 示 的 数据 。 进 入 VBE 编 程 环境 ， 单 击 菜单 栏 中 的 “插入 > 用 户 窗 体 ” 命 令 。 


F 


打印 固定 资产 卡 


增加 方式 ”使 用 部 门 ” 使 用 情况 Ss 
网 入 
购 信 
陶 人 
租用 
网 入 
移入 
陶 人 
陶 人 
陶 人 


Sheetl | 5heete | Sheet3 +) 


步骤 02 设计 “快速 更 改 指 定 记 录用 户 窗 体 。 在 “属性 ”窗口 中 设置 “” (名 称 ) ”属性 为 Inquire、Caption 属 性 为 “快速 更 改 指定 记录 ” ， 然 后 按照 下 页 表 设 置 控件 的 属性 。 设 计 好 的 用 户 窗 体 如 下 
图 所 示 。 


种 
ul 


控件 名 称 属性 值 


性 查询 
bin 
6 | 要 | Capton | 深交 页 
8 | 文本 杠 | (名称 ) 
0 | 和 | Captonr | 资产 2 称 
E39 
(各 称 ) 
(各 称 ) 
[名称 
ve | 0 
单价 


序号 控件 名 称 属性 什 
m. 

BT 了 了 了 
资产 原 值 


预计 使 用 年 限 


(名 称 ) Years 
42 文本 框 (名 
Value 


累计 折旧 额 
ZhejiuE 
标签 资产 净值 
和 sR 
Cancel 
有 区 ” (名称 ) | Cancel 
Bs 
名 Ship1 
oe 
i 
网 四 


名 
名 
名 
名 
名 


称 ) 
称 ) 
称 ) 
称 ) 
称 ) 
称 ) 
称 ) 


、 
、 
3 


14.2.2 ”编写 控件 触 友 事件 代码 


设计 好 用 户 窗 体 后 ， 本 小 节 接 着 为 该 窗 体 中 的 控件 编写 对 应 的 触 友 事件 代码 。 具 体操 作 如 下 。 


步骤 01 编写 初始 化 用 户 窗 体 过程 。 继 续 上 一 小 节 的 操作 ， 打 开 “Inquire (代码 ) ”窗口 ， 在 其 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 定义 公共 变量 和 设置 “取消 ”按钮 的 对 应 事件 。 


品 mm x 


和 2 了 
Public 1] AS Integer 和 


Publlc z hs Inteser 
职 调 按 袜 对 应 的 吕 件 过 程 似 柄 
Private Sub Cancel Click0 
天 团 用 户 窗 悚 
Ne. Hide 
End sub 


步骤 02 编写 代码 设置 复合 框 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 使 用 InQu0 数 组 将 工作 表 中 的 字段 名 称 赋 给 Inq 复 合 框 作为 下 拉 列 表 清 单 。 


User or 


“初始 化 用 户 窗 体 的 过 程 代码 
Private Sub UserFornm _Initialize() 
“声明 变量 存 情 需要 的 工作 表 
temp As Worksheet 
Worksheets( Sheetl1”) 
冶 明 误 旺 存储 当前 于 御 打 的 到 名 
Dim Coll AS Integer 
Coll = temp. es Bs CurrentRegion _ 
i lunmns. Coun 
声明 数组 Inou 6 短笛 工作 表 的 字段 名 黎 
Din InQut(21) is 
"使 用 循环 应 各 将 李 身 若 轩 给 数组 变 童 
For 1 =0 To Coll -1 
InguGD) = temp. Cells(3, i + 1) 


* 苦 数 组 值 丹 给 下 近 列 表 清 单 
Ing.List = InQou 
Ind. Ee = 0 


步骤 03 编写 代 码 初 始 化 “资产 变更 ”选项 组 中 各 控件 的 值 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 自 ， 该 段 代码 是 初始 化 “资产 变更 ”选项 组 中 各 控件 信 的 前 半 部 分 代码。 


初始 化 贫 产 变 | 证 
lnaqauboxl. Lext = 
Number,. Text = 
Namel. lext 


六 市 


Norms. TeXt 
Typel. Text = 
Addwayl. Yalue = “” 


应 调 


Depart.Value = 
Using. Yalue = | 
Address. Value = 
ManName. Value = °° 
InDate. Yalue = Date 
Numl. Value = “0” 


麻 应 


步骤 04 ”编写 初始 化 “资产 变更 ”选项 组 中 各 控件 值 的 后 半 部 分 代码 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 为 “单位 ”文本 框 、 “单价 ”文本 框 和 “资产 原 
值 ”标签 等 控件 赋 初 值 。 


一 | 口 


my Pm 
itislizs ~ 


Unit. Value = : 了 
Price.Value = “0” 
Balancel. Caption = 
zhe]iuE. Caption = 
Jingzhi.Caption = 
Ratel. Value = “0” 
zhejiuWay. Value = 
UseDate. Yalue = Date 
Years. Yalue = 1] 
End Sub 


步骤 05 ”编写 “查询 ”按钮 的 事件 过 程 代码 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 在 单 击 “ 查 询 ” 按 钮 时 为 变量 j 赋 初 值 4， 并 调用 自 定义 的 查询 函数 CXDM0)。 


' 查 词 按钮 对 应 ET 
Private Sub CX _Click 0 


eto 
?调用 自 定义 查询 函 类 CEDA O 


CXDN Ci) 
End Sub 


步骤 06 ” 自 定 义 查询 函数 CXDM(。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 声明 变量 ， 人 存储 Sheet1 工 作 表 ， 并 获取 该 工作 表 的 行 数 和 列 数 。 


Din ght i a 
Set Sht = Worksheets(” Sheetl1”) 
Dim rowNum Ais Integer 


D1n Col2 hs Integer 
"获取 指定 工作 表 的 行 数 与 列 数 
rowNun = Sht. Range(l’ na3 ) .CurrentResgion， 
Rows.CLount + 2 
Col2 = Sht. Rangee(*A3”).CurrentRegion. 
En。 Count 


步骤 07 编写 代码 判断 是 否 存 在 满足 查询 条 件 的 记录 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 使 用 双重 循环 语句 查找 满足 查询 条 件 的 记录 ， 并 将 查找 到 的 行 数 赋 给 公共 


ois 
和 父 星 。 


Dim 1 As Integer 


or 1 = 1 To Col2 
"判断 用 户 选 中 字段 的 列 亏 
If Sht.Cells(3, i) = Inqd.Value Then 
' 查询 满足 用 户 条 件 的 记录 


Do 羯 村 外 六 人 FrowNunm Or ] = TowNunm 


划 朵 用 户 输 六 的 条 件 是 否 存在 
LE Cells(j, i) = InquBoxl 人 
看 存在 ， 将 查找 到 的 行 数 赋 给 


z= ] 


步骤 08 编写 代码 调用 遂 数 ShowRecord10。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 表示 若 碍 找到 满足 条 件 的 记录 ， 则 调用 自 定 义 函 数 ShowRecord10， 将 数据 显示 
在 用 户 窗 体 中 。 


' 并 调 


届 4 数 ShowRecord1 QO | 


ShowRecordl  ] 
Exit 
End I+i 


FH or 


]=j+1 


Loop 
End I+t 
Next 1 
End Functlon 


步骤 09 自 定义 ShowRecord10 函 数 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 将 查找 到 的 第 1 条 记录 赋值 给 用 户 窗 体 中 相应 的 控件 。 


TT 日 的 代码 


ey ShowRecordl (a As Integer) 


Number. Text = 
Namel. [ext 
Norms,. lext 
lvyhel. Text 


Depart. Value = 
Usine. Yalue = 
iddress. Yalue 
ManName. Value 


步骤 10 编写 ShowRecord1() 函 数 的 后 半 部 分 代码 。 在 “Inquire (代码 ) ” 


Cells(a, 1) 
Cells (la, 2) 
Cells(a, 3) 
Cells'la, 4 


Addwayl. Yalue = Cells l(a, 5) 


= Cells(a, 6) 
Cellst(a, 7) 
= Cellsta, 8) 
= Cells(a, 3) 


窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 ShowRecord1() 函 数 的 后 半 部 分 代码 。 


InDate. Yalue = Cells (a, 10) 
Numl. Yalue = Cells(a, 11) 


Unit. Value = Cells(a, 12) 
Price. Value = Cells (al 13) 
Balancel. Caption = Cells'(a, 14) 
ZhejiuE. Caption = Cells(a, 15) 


Tingzhi.Caption = Cells(a, 16) 

Ratel. Value = Cells(a, 17) 

ZhejiuWay. Yalue = Cells(a, 18) 

UseDate. Value = llsta. 19) 

Years. Yalue = Cells (a, 20) 
End Functlon 


步骤 11 编写 “下 一 条 ”按钮 的 事件 代码 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 将 前 面 查找 到 的 记录 行 号 加 1， 再 调用 查询 浮 数 CXDM0O， 查 找 满足 条 件 的 下 一 条 
记录 。 


TT 
Private Sub Nextl Click0 


ee ah 


调用 自 定义 查询 区 | 数 CxDI () 
CXDM C1) 
End Sub 


步骤 12 编写 “上 一 条 ”按钮 的 事件 代码 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 是 将 前 面 查找 到 的 记录 行 号 减 1， 再 调用 查询 函数 CXDM1(0， 碍 找 满足 条 件 的 上 一 条 
记录 。 


ra 
Shipl wr 


“上 一 条 按钮 对 应 的 事件 过 程 代码 
Private Sub 二 人 的 Click 人 0 


i 下 于 莫名 


调用 自 定义 查询 孙 铸 CXDJLL O 
CXDM1 ©1) 
End Sub 


步骤 13” 自 定义 向 上 查询 函数 CXDM10。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 与 自 定义 的 查询 函数 CXDM (0 相似 ， 用 于 获取 工作 表 的 行 数 和 列 数 。 


Function CXDM1 (1 As Integer) a 
Dim Sht hs Worksheet : 
Set Sht = Worksheets ("Sheetl”) 

人 rowNum Ls ne 
mM Col2 is Intege 
获取 指定 工作 表 的 行 数 与 列 数 

rowNun = Sht. Ranee( A3’').CurrentRegion. 
Rows.Count + 2 

Col2 = Sht. Rangel’ ga3 ) .CurrentRegion。 
Colunns. Count 

Dim 1 As Integer 

For 1 = 1 To Col2 


步骤 14 编写 CXDM10 遂 数 的 后 半 部 分 代码 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 向 上 查找 满足 条 件 的 上 一 条 记录 ，。 


- 刘 断 用 广 和 这 中 字段 的 询 盛 
If Sht. Cells(3, i) = Inq.Value Then 
查询 满足 用 广 条 件 的 记录 


“所 朋 产 痪 入 的 条 件 是 本 存在 
Cel1s(j，ji) = InquBoxl. Yalue Then 
者 在 ， 季 查 技 到 人 行业 给 公 提 灾 时 


"并 调用 显示 记录 函数 ShowRecord1 O 
ShowRecordl ] 
Exit For 
End I+ 
J 三] 一] 
Loop 
End I+t 
Next 1 
End Functlion 


步骤 15 ”编写 代码 在 修改 “数量 ”等 文本 框 时 自动 更 新 数据 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 在 修改 “数量 ” “单价 ”“' 净 残 值 率 %” “预计 使 用 年 限 ” 文 
本 框 时 ， 自 动 调用 AddRecord 用 户 窗 体 中 的 UpDateList() 过 程 更 新 数据 。 


站 一 一 


Private Sub Numl Change0 
oe 
End Su | | 
企 修 改 音 收文 本 框 的 值 时 目 动 更 新 数据 
Private Price ‘ChangeO 


AddRecord. UpDateList 
End Sub | 
攻 眉 了 下 漏 骂人 悟 渤 女王 柑 的 二 时 目 : 
Frivate Sub Ratel ee 
AddRecord. UpDateList 
End Sub 
wj 页 计 司 用 年 限 》 末 柑 的 恒 眉 
Bie Sub Years ChangeO 
AddRecord. UpDateList 
End Sub 


步骤 16 编写 “保存 ”按钮 的 事件 代码 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 将 Inquire 用 户 窗 体 中 各 控件 的 值 写 入 相应 的 单元 格 中 。 


" 避 存 按钮 对 应 人 
Private Sub Save2 Click0) 
Cellslz, 1) = Number. Value 
Cells (z, 2) Namel. Text 
Cellslz, 3) = Norms. Text 
Cellslz, 4) = Typel. Text 
ddwayl. Yalue 
Depart,. Value 
Usinz. Yalue 
Address. Valu 
NanNanme. Yalue 


| 
I 中 证 


|| 


Cells (z, 5) 
Cells (z, 
Cells (z, 
Cells (Zz, | 
Cells(z, 9) 
Cells(lz, 10) = InDate.Valu 
Cellslz, 11) = Nunl. Value 


[| 


步骤 17 编写 将 用 户 窗 体 中 的 数据 写 入 单元 格 的 后 半 部 分 代码 。 在 “Inquire (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 是 “保存 ”按钮 事件 代码 的 后 半 部 分 。 


Cio 


ells(z, = Unit. Value 
“Price,. Yalue 
) = Balancel. Caption 
ZhejiuE. Caption 
: Jingzhi. Caption 
Ratel. Value 
Zhe jiuWay. Yalue 
Jls' UseDate. Value 
ells'(z, Years. Yalue 


End sub 


C 
C 
Ce 
Le 
[已 
C 


步骤 18 编写 代码 调用 Inquire 用 户 窗 体 。 插 入 “模块 2 ， 在 打开 的 “模块 2 (代码 ) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 调用 Inquire 用 户 窗 体 。 


显示 用 户 窗 体 的 过 程 代码 


Sub 快 


速 变更 宽 产 昌 


Dim NyForm2 As Inqulre 

Set MyForm2 = New Indquire 

NyF orm2. Show 

Set MyForm2 = Nothine 
End sub 


14.2.3 ”运行 代码 快速 更 改 指定 记录 


完成 窗 体 设计 和 代码 编写 后 ， 本 小 节 将 运行 


步骤 01 为 按钮 控件 指定 宏 。 继 续 上 一 小 节 


右 图 所 示 ， 然 后 单 击 “ 确 定 ” 按 钮 。 


“快速 更 改 指 定 记 录 ” 窗 体 来 快速 查找 并 更 改 固定 资产 记录 。 具 体操 作 如 下 。 


的 操作 ， 返 回 Excel 视 图 ， 右 击 “ 资 产 变更 ”按钮 ， 在 弹出 的 快捷 菜单 中 单 击 “ 指 定 宏 ” 命 


令 ， 在 弹出 的 “指定 宏 ” 对 话 框 中 单 击 


步骤 02 运行 


' 快 速 变更 资产 ”过 程 代码 。 


返回 工作 表 ， 激 活 并 单 击 “ 资 产 变更 ”按钮 ， 如 下 图 所 示 。 


| | 
资产 类 别 ”增加 方 
电脑 网 络 购 入 
通讯 工具 购 六 
通讯 工具 < 
办 公设 备 和 
家 用 电 妖 


家 用 电 医 
字 用 电 北 
纶 进 工 具 
打印 机 欠 公 设备 


步骤 03 ”选择 需要 查询 的 字段 项 目 。 弹 出 “快速 更 改 指 定 记录 ”对 话 框 ， 设 置 查询 条 件 为 “使 用 部 门 ” “秘书 室 ”， 单 击 “ 查 询 ” 按 钮 ， 如 下 图 所 示 。 


入 帐 日 期 | 201771274 居 用 日 期 | 2017/12/4 


数量 |0 单位 一 一 一 单价 三 一 次 产 原 人 0 元 


净 残 值 率 %| 0 秆 1 十 使 用 年 限 | 1 办 计 折旧 融 0 资产 冶 值 07T 


保存 | 取消 | 上 -条 | 下 条 | 


步骤 04 查看 查询 结果 。 此 时 ， 在 对 话 框 的 “资产 变更 ”选项 组 中 显示 出 查找 到 的 符合 条 件 的 第 1 条 记录 ， 如 下 图 所 示 。 


使 用 部 | ] = 秘书 宇 


资产 变更 


资产 编号 | W002 ”资产 名 称 | 传真 册  ” 规 榨 型 号 | 松下 
所 属 类 别 | 通讯 工具 增加 方式 | 购 入 ~| 使 用 部 门 | 秘书 室 ”| 
使 用 情况 | 使 有 中 | 存放 地 点 | 办 公 室 。 ”保管 人 员 | 罗 扬 - 
入 帐 日 期 | 20167174 启用 日 期 | 20187174 折旧 方法 | 平均 年 限 法 | 
数量 |2 单位 | 台 单价 | so 资产 原 值 ”1600 元 


净 残 值 率 % | 5 预计 使 用 年 限 5 “累计 折旧 额 -65.4444 资产 净值 1665.444 元 


下 -名 | 


步骤 05 ”修改 并 保存 数据 。 如 果 需 要 修改 查找 到 的 记录 ， 可 以 在 “资产 变更 ”选项 组 中 修改 数据 ， 如 将 “资产 编号 ”更 改 为 M-011， 单 击 “ 保 人 存 ” 按 钮 ， 如 下 图 所 示 。 


资产 变更 一 一 一 一 一 一 | 
资产 编号 | 1011 资产 各 称 | 传真 机 规格 型 号 | 


所 属 类 别 | 通讯 工具 增加 方式 | 网 入 ”| 使 用 部 门 


使 用 情况 | 使 用 中 | 存放 地 点 | 办 公 室 保管 人 员 : 
入 帐 日 期 | 2018/174 启用 日 期 | 2018/1/4 折旧 方法 | 平均 年 限 法 "| 
数量 | ? 单位 | 台 单 价 | so0 资产 原 值 ”1600 元 


净 残 值 率 % | 5 闭 1 十 使 用 限 | 5 时 计 折 介 额 -63.4444 资产 净值 1663.4447L 


| 取消 | 上 -条 | 下 条 | 


步骤 06 ”关闭 “快速 更 改 指定 记录 ”对 话 框 。 保 存 更 改 后 ，“ 快 速 更 改 指定 记录 ”对 话 框 并 没有 关闭 ， 单 击 “ 取 消 ” 按 钮 ， 如 下 图 所 示 ， 即 可 关闭 对 话 框 。 


可 向 条 件 | 使 用 sh| ] | 


资产 编号 | F011 。 ”资产 名 称 | 传真 机 规格 型 号 | 检 T 
所 属 类 别 | 通讯 工具 增加 方式 | 购 入 ~| 使 用 部 门 | 秘 # 室 >| 
使 用 情况 | 使 有 中 | 存放 地 点 | 办 公 室 保管 人 员 | 罗 扬 v 
入 帐 日 期 | 2018/1/4 ”启用 日 期 | zols/l/4 折旧 方法 | 平均 年 限 法 > 
数量 |2 单位 | 台 单价 so 资产 原 值 1600 元 


净 残 值 率 %| 5 预计 使 用 年 限 | 5 。 累计 折旧 额 -65.4444 资产 净值 1665.444 元 


取 清 司 上 一 条 下 一 条 \ 


E F 和 


打印 固定 冤 产 卡 ] 
型 号 资产 类 别 ”增加 方式 ”使 用 部 门 ” 使 用 情 

电脑 网 络 财务 

通讯 工具 秘 蔬 室 

通讯 工具 秘书 室 

内, 尾 设 备 洼 兰 p 

家 用 电器 秘书 室 

家 用 申 器 秘书 宣 

家 用 电器 秘书 室 

汽车 交通 工具 销售 
打印 机 四 公设 备 秘书 室 


14.3 ”打印 固定 资产 卡片 


间 们 


要 打印 固定 资产 记录 进行 书面 保存 ， 可 以 创建 固定 资产 卡片 ， 每 一 条 固定 资产 记录 对 应 一 张 固定 资产 卡片 ， 
卡片 。 


这 样 就 能 清晰 地 查看 每 一 项 固定 资产 的 情况 。 本 节 将 使 用 VBA 程 序 代 码 自 动 创建 并 打印 


扫 码 看 视频 


必 


Le : 实例 文件 \ 第 14 章 \ 原 始 文 件 \ 固 定 资产 管理 系统 1.xlsm 


实例 文件 \ 第 14 章 \ 最 终 文件 \ 固 定 资产 管理 系统 2.xlsm、 固 定 资产 卡片 .pdf 


本 小 节 将 编写 VBA 程 序 代码 ， 批 量 创建 固定 格式 的 固定 资产 卡片 ， 然 后 将 其 打印 出 来 。 具 体操 作 如 下 。 


插入 模块 。 进 入 VBE 编 程 环 境 ， 在 “工程 ”窗口 中 右 击 “VBAProject (固定 资产 管理 系统 1.xlsm) “ 


中 将 “ (名 称 ) ”属性 设置 为 “打印 固定 资产 卡片 ”。 


选项 ， 在 弹出 的 快捷 菜单 中 单 击 “插入 > 模块 ”命令 ， 如 下 图 所 示 。 然 后 在 “属性 ”窗口 


9 国 | 加 | 


四 Solver (SOLYER. ILAN) 

由 Ss (FUHCEES. YLAR) 

日 - VYBAProject (固定 资产 管 理 系 统 | 

辐 二 Exeel 对 象 国 查看 代码 (QO) 

] - 国 Shestl Sheetl) 
一 国 | Sheet2 (Sheet2) 
-图 | Sheet3 (Sheet3) 
: 本 Thi =sWorkbook 


步骤 02 编写 打印 卡片 的 过 程 代码 PrintCard()。 在 “打印 国定 资产 卡片 (代码) ”窗口 中 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 调用 CreateTable() 过 程 ， 创 建国 定 资产 卡片 的 临时 工作 表 ， 然 后 获取 
Sheet1 工 作 表 的 行 数 。 


PrintCard 


"打印 固定 贷 产 卡片 的 过 程 代 码 
sub PrintCard0) 
调用 创建 临时 国定 贫 产 卡片 工作 表 的 
"过程 CreateTabel 六 
CreateTable 
' 再 明 变 台 存 悄 工 作 表 sheet1 
Dim Tabl hs Worksheet 


Set Tabl = Worksheets( Sheetl | 

' 获取 工作 表 Sheetl 中 的 数据 行 数 

Din rowNum bs IntegeT 

Pont Tabl. mg nl CurrentResgion _ 
Ws. Count + 2 


声明 训 量 ; 作 为 循环 变量 


Din 1 As Integer 


步骤 03 ”编写 代码 循环 打印 固定 资产 卡片 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 用 于 将 Sheet1 工 作 表 中 的 固定 资产 记录 循环 写 入 固定 资产 卡片 中 ， 并 将 其 
打印 出 来 ， 以 及 删除 创建 的 emp 临 时 工作 表 。 


[iatced vv| 
人 用 各 环 坎 名 攻取 每 瑟 国 定妆 产 卡片 的 内 容 


1 请 用 二 入 身 下 当 产 卡片 的 国 数 WriteInO 


:条 前 如 计 工作 表 
Worksheets(’ temp’ ) .PrintOut 


Next 1 

删除 临时 工作 表 

Worksheets(' temp’ ) .Delete 
End sub 


步骤 04 ” 自 定 义 CreateTable0 过 程 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 新 建 工作 表 并 重 命 名 新 工作 表 ， 然 后 合并 B1: G1， 并 写 入 标题 文本 “固定 
资产 卡片 ”。 


CreateTable 


创建 临时 国定 资产 卡片 工作 表 tenp 的 过 十 程 代 码 
sub CreateTable 
声明 变 生生, 生 情 新 建 的 工作 表 并 重 全 名 为 temp 
Din Sht ss Worksheet 
Workbooks 性 固定 和 资产 管理 系统 2. xlsm) .Activyate 


Worksheets. Add before:=Worksheets (1) 
Ee -lig = Worksheets (1) 


共 并 入 晶 所 元 术 并 三 入村 本 
Range(t Bl:G1°). se 
Ranget Bl:ClL ) = 


步骤 05 编写 代码 设置 标题 的 格式 及 下 边框 样式 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 设置 标题 的 字体 格式 、 对 齐 方式 及 标题 单元 格 下 边框 的 样式 。 


(通用) 本 CreataTable 


襄 丰 标题 的 字体 格式 及 对 天 万 也 
With Range( Bl : G1 ") 
,Font, Hame = “华文 行 槛 ” 
.Font. Silze = 18 
.HorizontalAlierment = xlCenter 


. YerticalAli rment = xlCenter 
设置 标题 所 在 单元 格 的 下 边 入 格式 
With .Borders (xlEdgeBottonm) 
.LineStyle = xlDouble 
.ColorIndex = xlAutomatlc 
.TinthndSshade = 0 
. Weight = xlThick 
End With 
End With 


步骤 06 编写 代码 写 入 卡片 编号 及 当前 日 期 并 设置 其 格式 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 写 入 卡片 编号 和 当前 日 期 ， 然 后 设置 其 字体 格式 、 对 
天 万 起 。 


CreateTable 


" 设 百 卡片 编 亏 与 当前 日 期 的 格式 
Rangeel” A2:02")., Rovepight = = 4 
Cells(3, 2) = 
Cells(3, 5 = “当前 日 其 
With Range(” B3:G3") 

.Font,. Hame = “宋体 


.Font. Slze = 9 
.Horlzontalal 1Lgnnent = xlCenter 
. Yerticalhlienment = xlCenter 
End With 
Ranee(’C3:D3"). Merge 
Raneel’ F3:G3’). Merge 


步骤 07 编写 代码 写 入 固定 资产 卡片 的 特定 字段 文本 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 将 指定 文本 写 入 相应 的 单元 格 中 。 


EE 
Cells (4, 4) 
Cells (4, 6 
Cells (5, 2) 
Cells(5, 4) 
Cells(5, 6) 
Cells (6, 2) 
Cells(6, 4) 
Cells (6, 6) 
Cells (7, 2) 
Cellst(7?, 4) 


ll 
入 


= 


CreateTable 


把 


Tas 
bt 
各 


Cells(7, 6) 
Cells(8, 2) : 
Cells (8, 4 
Cells (8, 6) 
Cells (9,，2) 
Cells (9, 4) 
Cells(9, 6) 
Cells (10, 2) 
Cells(10, 4 
Range (Cells (1 
Cells (11, 2) 
Cells(l1l1, 5, 


步骤 09 编写 代码 设置 单元 格格 式 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 合并 指定 单元 格 区 域 和 设置 单元 格 区 域 511: G11 的 字体 格式 及 对 齐 方式 。 


Brn|l < 


吕 


中 和 和 人 考区 
号 
EL 


过 


如 各 


二 
把 


加 “上 
下 
0 

从 


ss 
本 三 末 


a 
十 这 
十 


hf 


eB 


dsGo 7)). Nerge 


hi 匡 
rT 
由己 
ER 


Ho | 


中 


CreateTable 


育 并 指 下 的 单元 格 
Range (Cells (ll1, 3), Cells(l1l, 4)).Nerge 
Range (Cells (11, 6), Cells(1ll, 7)).NMerge 
' 设 首 B11: G11 的 字体 格式 及 对 齐 方式 
With Ranget Bll:Cll ) 
.Font. Hame =“ 宋 人 悚 ” 
,Font. Slze = ‘ 
. Horlzontalilisnment = xlCenter 
.Verticalilisnment = xlCenter 
End With 


步骤 10 ”编写 代码 设置 单元 格格 式 和 左边 框 样式 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 用 于 设置 单元 格 区 域 54: G10 的 单元 格格 式 和 左边 框 样式 。 


[createTable 


' 设置 B4:B10 的 格式 
With Ranget B4:C10 ) 
. RowHeight = 20 
.Columns. AutoF1it 
HorizontalAllignment = xlCenter 
.Yerticalhli xlCenter 
流 时 二 在 让 开 翌 式 及 条 强 
With .Borders (xlEdgeLeft) 
.LineStyle = xlContinuous 
.ColorIndex = 0 
.TintindSshade = 0 
.Weight = xlThin 
End With 


步骤 11 编写 代码 设置 上 、 下 边框 的 样式 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 与 设置 左边 框 样式 的 代码 相似 ， 用 于 设置 上 、 下 边框 的 样式 。 


( 西 用) | , ws [createTable 


" 设 关 上 边框 的 框 妾 样式 及 粗细 
With .Borders(xlEdgeTop) 
.LineStyle = xXlContinuous 
.ColorIndex = 
.TIntanadshaadae = 0 


A = xXlThin 
End W1ith 
"井下 下 边框 的 框 续 丁 了 式 及 和 粗细 
With .Borders (xlEdgeBottonm) 
.Linestyle = xlContinuous 
.ColorIndex = 0 
.TintAndSshade = 0 
.Weight = xlThin 
End With 


步骤 12 ”编写 代码 设置 右边 框 和 垂直 边框 的 样式 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代码 与 前 面 设置 左边 框 样式 的 代码 相似 。 


" 设 盏 右边 框 的 框 线 样式 及 粗细 
With .Borders (xlEdgeRieht) 


‘Linestyle = xlContinuous 


TintandShade = = 0 
es xlThin 
End Wi 
" 设 百 办 部委 直 边 杠 的 框 瑟 样式 及 粗细 
With .Borders (xlInsidevVertical) 
.LineStyle = XlContinuous 
,ColorIndex = 0 
.TintAndshade = 0 
.Welght = xlThin 
End With 


步骤 13 ”编写 代码 设置 水 平 边框 样式 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 与 设置 垂直 边框 样式 的 代码 相似 。 


" 设 芋 内 部 水 半边 框 的 框 线 样 式 及 粗细 
With .Borders (xlInsideHorizontal) 
.LineSstyle = xlContinuous 
.ColorIndex 
ee = 


. Weight = an 
End With 
End With 
End Sub 


步骤 14 自 定 义 Writeln() 国 数 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 将 Sheet1 工 作 表 赋 给 相应 的 变量 ， 再 计算 出 卡片 编号 ， 并 将 当前 日 期 写 入 相应 的 
单元 格 中 。 


甬 几 ) 
后 镍 世 二 在 和 让 人间 内 容 填 六 临时 工作 表 temp 下 
-相应 单元 格 中 的 目 定 有 
Function WriteIn(la ss Intege 
PH 人 时 和 代入 度 钙 工作 坟 
Dim Sht As Worksheet 
Set Sht = Worksheets(’ temp’) 

Dim Tab2 hs Worksheet 
Set Tab2 = Worksheets (” Sheetl1”) 


将 Sheet1l 工 作 表 的 内 容 写 六 tenp 工 作 表 的 
"相应 单元 格 
With sht 


, 将 当前 shee 世 工作 表 的 J J 数 ; 研 3 后 
写 入 卡片 编 亏 相应 元 格 


Cel1s(3， 旬 = Format(Date, “yyyy-mm-dd’) 


步骤 15 编写 代码 将 工作 表 中 的 指定 数据 写 入 相应 的 单元 格 中 。 在 “打印 固定 资产 卡片 (代码 ) ”窗口 中 继续 输入 如 下 图 所 示 的 代码 段 ， 该 段 代 码 用 于 将 Sheet1 工 作 表 中 指定 行 的 数据 写 入 相应 的 单元 


格 中 。 


与 入 相应 i 


se fp 
Cells (4 


Cells (4, 
Cells (5, 
Cells (5, 


Cells (5, 
Cells (86, 
Cells 6, 
Cells (6, 
Cells (7?, 
Cells (7, 


Tab2. 


Tab2. Ce. 
Tab2. 
Tab2. 


Tab2. 
Tab2. 
Tab2. 
Tab2. 


Tab2. Ce. 


= Tab2. 


= Tab2. Cells(a， 
:了 UnmberFormat = 
) = Tab2. ci 7 


Cells (7?, 
Cells (7, 
Cells (7, 


步骤 16 ”编写 代码 自动 调整 工作 表 的 列 宽 。 在 “打印 固定 资产 卡片 (代码) ”窗口 中 继续 输入 如 右 图 所 示 的 代码 段 ， 该 段 代码 用 于 继续 将 指定 行 的 数据 写 入 相应 的 单元 格 中 ， 然 后 按 内 容 自 动 调整 单元 
格 区 域 B3: G10 的 列 宽 。 


Cells (8, 
Cells (8, 
Cells (8, 
Cells (9, 
Cells (9, 
Cells (9, ' 
Cells (10, ] 


Tab2.Cells(a, 11. 乱 
Tab2.Cells (la, 12 
Tab2. Cells (a, 
Tab2. Cells (a, 
Tab2. Cells (a, 
Tab2.Cells (a, 15, 
Tab2.Cells (a, | 
Tab2. Cells (a, 
Cells (11, Tab2. Cells (a, 
Cells (11, Tab2. Cells (a, 
Cellst11, A) .NumberFormat = ” 
自动 调整 指定 单元 格 区 域 的 列 宽 | 
Raneetl’ B3:G10°) .Columns. AutoFit 
End With 
End Functlon 


Cells (10, 


14.3.2 ”运行 代码 完成 打印 


编写 好 创建 固定 资产 卡片 的 VBA 代 码 后 ， 本 小 节 将 运行 该 过 程 代码 ， 完 成 固定 资产 卡片 的 打印 。 具 体操 作 如 下 。 


步骤 01 打开 “指定 宏 ” 对 话 框 。 继 续 上 一 小 节 的 操作 ， 返 回 Excel 视 图 ， 右 击 “ 打 印 固定 资产 卡 ”按钮 ， 在 弹出 的 快捷 菜单 中 单 击 “ 指 定 宏 ”命令 ,如 下 图 所 示 。 


部 门 1 BE 
财务 二 使 让， 粘贴 
和 
秘书 室 
广告 章 


涤 
四 


秘书 室 
秘书 室 
秘书 至 
许 售 症 

秘书 襄 


| pb 


步骤 02 ”指定 宏 。 弹 出 “指定 宏 ” 对 话 框 ,在 “ 宏 名 ”列表 框 中 单 击 PrintCard 选 项 ， 如 下 图 所 示 ， 然 后 单 击 “确定 ”按钮 。 


(RR),., 


步骤 03 ”运行 PrintCard0 过 程 代码 。 返 回 工 作 表 ， 单 击 “ 打 印 固定 资产 卡 ” 按 钮 ， 如 下 图 所 示 。 


电脑 网 络 财务 部 
通讯 工具 税 书 主 
通讯 工具 有 秘书 宣 
办 公设 备 广告 部 
辟 用 电器 可/ 释 书 宣 
系 用 电 面 网 六 释 书 室 


ed 


和 ly 
内 渤 轩 半 轩 早早 同时 


家 用 电 奔 秘书 宣 
区 戎 工 只 销售 部 
办 公设 备 秘书 至 


斗 痊 弃 弃 弃 斗 斗 S 
[pe ee fe 


步骤 04 显示 打印 进度 。 此 时 可 看 到 工作 表 中 弹出 “正在 打 EFj” 对 话 框 ， 该 对 话 框 中 显示 了 当前 打印 文件 的 进度 ， 如 下 图 所 示 。 


无 卡片 


一 Ha 
| 


2018-=01-08 


步骤 05 ”删除 临时 工作 表 。 弹 出 提示 框 , 询 问 用 户 是 否 永久 删除 临时 工作 表 ， 单 击 “ 删 除 ”按钮 即 可 ， 如 下 图 所 示 。 


固定 资产 卡片 
卡片 编号 当前 日 期 i 

EE 惠普 
TT 秘书 宣 

Microsoft Excel 人 

: 

全 Microsoft Exce| 将 永久 删除 此 工作 表 。 是 宇 淮 续 ? 

Dae) 让 使 用 年 限 本 


登记 人 员 | EE Ey | EUIOTULI™ Uo 


步骤 06 保存 文件 。 为 了 展示 打印 效果 ， 这 里 设置 的 默认 打印 机 是 一 个 PDF 虚拟 打印 机 。 打 印 完 毕 后 会 弹出 “另存 为 ”对 话 框 ， 在 对 话 框 中 设置 好 PDF 文件 的 保存 路 径 和 文件 名 ， 单 击 “ 保 人 存 ” 按钮 ， 
如 下 图 所 示 。 


[2 “站 网 “ 实例 文件 ”第 14 带 ， 最 线 文 件 ww | 搜索 " 攻 终 立 件 、 
组 织 = 新建 廊 件 赤 
国 此 电脑 ”名称 gh 


了 对 象 褒 有 与 搜索 等 件 匹配 的 项 。 


二 软件 ({E:) 
_ 备份 (中 
芯 网 阁 
WW 号 让 


文件 名 (N 


保存 类 型 (TD): PDF (pdf 


A 隐藏 文件 来 


步骤 07 ”查看 打印 结果 。 找 到 J 印 结 果 文件 所 在 的 位 置 并 打开 该 文件 ， 可 看 至 时 J 印 固定 资产 卡片 的 效果 ， 如 右 图 所 示 。 


片 访 - 1 和 日 六 2018/1/9 


年数 和 法 
a 13500 元 于 折旧 -33694. 03 元 
下 人 和 


2018-01-08 


